شكرا لك الاخ الكريك hs889
شكرا لك اخى تم فعلا حماية اكواد الماكرو من التعديل عليها
وكان هذا الجزء الثانى من السؤال
اما الجزء الاول من السؤال لأنى اجيد التعامل مع الاكسل ولا اجيد الفجوال بيسك كيف ادرج كلمة السر داخل كود الحماية وكود فك الحماية الموجدوين فى اول المشاركه
ارجو من الاخوه الاعضاء او المشرفين الكرماء اجابة طلبى لشدة احتياجى له
والسؤال مره اخرى هو :
لدى ورقة اكسل بها ماكرو لعمل حماية للورقة
واخر لفك الحماية
وهما كالاتى :
الاول هو-
Sub Protect_on()
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios _
:=True
End Sub
والثانى -
Sub Protect_off()
ActiveSheet.Unprotect
End Sub
المطلوب هو كيف اضيف الى كل منهما كلمة سر ولتكن "123" لتعمل بدون ان يطلب البرنامج كلمة السر سواء عند تنفيذ ماكرو الحماية او عند تنفيذ ماكرو فك الحماية
ولكم جزيل الشكر