ما حل رسالة الخطأ بسبب حماية ورقة بها معادلات؟

[hicham2610]

السلام عليكم

من فضلكم

عند حماية ورقة بإخفاء المعادلات لكي لايتلاعب به شخص ما

طبقت هذه الطريقة:

https://yasserkhalilexcellover.blogspot.com/2016/04/hide-formulas-by-sheet-protection.html?showComment=1487019584929#c23028461720726577

لكن عند تنفيذ  الماكرو لا تنفذ المهمة وتخرج نافذة:

الكود المستعمل في الورقة المعنية:

Private Sub Worksheet_Activate()
    Rows("18:86").EntireRow.Hidden = False
    [Rng].EntireRow.Hidden = True
End Sub

وجزاكم الله خيرا

تم تعديل فبراير 16, 2017 بواسطه hicham2610

[بن علية حاجي]

السلام عليكم ورحمة الله

لا يمكن تنفيذ هذه الأوامر في الكود على ورقة محمية... لحل المسألة يمكن إضافة أمر "إلغاء الحماية" قبل هذه الأوامر ثم بأمر آخر بعدها لـ "إعادة الحماية" بالكلمة السرية نفسها...

* أمر "إلغاء الحماية" هو :

ActiveSheet.UnProtect Password:="YourPass" 

* وأمر "إعادة الحماية" هو :

ActiveSheet.Protect Password:="YourPass" 

بن علية

تم تعديل فبراير 16, 2017 بواسطه بن علية حاجي

[hicham2610]

جزاك الله خيرا

للأسف أستاذي الفاضل 

لم ينجح معي الحل المقترح

بقيت نفس تلك النافذة المزعجة تخرج

وضعت الكود هكذا:

Private Sub Worksheet_Activate()
ActiveSheet.UnProtect Password:="   "
    Rows("18:86").EntireRow.Hidden = False
    [Rng].EntireRow.Hidden = True
ActiveSheet.Protect Password:="   "
End Sub

الباس:3مرات المسطرة

تم تعديل فبراير 17, 2017 بواسطه hicham2610

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

ارفق الملف الذي به المشكلة للإطلاع عليه

تقبل تحياتي