طلب مساعدة في تنفيذ ماكرو

[ورد2019]

الرجاء من خبراء المنتدى مساعدتي عاجلا..

عندي ملف اكسل فيه ماكرو يعمل بشكل جيد لكن عندما اريد حماية الشيت من التعديل برقم سري يطلعلي تنبيه بأنه فيه مشكل في الماكرو ولا يستطيع تنفيذه

[hicham2610]

السلام عليكم

من الأفضل إرفاق ملف أو ملف مشابه به معلومات وهمية وبه المشكلة

أعتقد أن:

السبب الرقم السري الذي وضعت

جرب حذفه في أول الكود وإرجاعه في آخر الكود كمايلى:

()Sub HICHAM  

ActiveSheet.Unprotect "passe"   'passe هو الرقم السري الدذي وضعت
  '
  ' الكود هنا
  '
  'ارجاع الرقم السري في نهاية الكود
  ActiveSheet.Protect "passe"

End Sub

بالتوفيق إن شاء الله

تم تعديل أغسطس 1, 2019 بواسطه hicham2610

[hicham2610]

السلام عليكم

الأخ الكريم

أنت ضف السطر العلوي ثم مكان الكود هنا أكتب الكود الخاص بك ثم السطر السفلي

passe هو الرقم السري الذي وضعت لحماية الشيت.

فمهمة السطر العلوي فك الحماية (الرقم السري ) الذي وضعت ومهمة السطر الأخير إعادة الرقم السري لحماية الورقة من التعديل

الفكرة: أن الماكرو يصطدم بالباس الذي وضعته، ماذا ستفعل؟ الجواب: إعطاءه الباس لتنفيذ الماكرو بمعنى فك الحماية ثم استعادة الحماية بعد تنفيذ الماكرو.

بالتوفيق إن شاء الله

تم تعديل أغسطس 1, 2019 بواسطه hicham2610

[ورد2019]

شكرا استاذي العزيز  HICHEM2610 ودمت لنا في هذا المنتدى الرائع

[hicham2610]

العفو أحي الفاضل

بالتوفيق إن شاء الله