تفعيل/الغاء تفعيل

[وليد زقزوق]

عندي ملف اكسيل باحد شيتاته علي سبيل المثال عامل حمايه لبعض النطاقات

وفي بعض الاوقات احتاج فك الحمايه لعمل بعض التعديلات بصفتي الادمن

اريد كود يربط بزر لتفعيا الحمايه والغاء الحمايه بظغطه واحده بدون الذهاب الي اعدادات الحمايه من داخل الاكسيل

[ابو تراب]

هلا وليد

 

يمكنك الغاء حماية الشيت و تفعيلها عن طريق الكود التالي:

 

كلمة السر : 123

 

 ActiveSheet.Unprotect Password:="123"



ActiveSheet.Protect Password:="123"

[ياسر خليل أبو البراء]

أخي الحبيب وليد

جرب الملف التالي

ستظهر لك رسالة إذا ضغطت نعم قمت بحماية الورقة ، وإذا ضغطت لا قمت بإلغاء الحماية

Protect Sheet.rar