كود حماية وفك اوراق العمل جميعها

[Ahmed Emannan]

السلام عليكم

اضع بين ايدكم كود حماية وفك اوراق العمل جميعها بدون استثناء

بدل ما تتعب وتقوم بحماية كل ورقة على حدا

منقول للفائدة

كود القفل

Sub mProtect()
Dim cont As Integer
    Do Until cont = Sheets.Count
        cont = cont + 1
        Sheets(cont).Protect (hady)
    Loop
End Sub

كود الفتح

Sub mUnprotect()
Dim cont As Integer
    Do Until cont = Sheets.Count
        cont = cont + 1
        Sheets(cont).Unprotect (hady)
    Loop
End Sub

تحياتي لكم

[يوسف عطا]

عزيزى كيف يتم إستخدامه

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

نرجو الشرح

[هشام شلبى]

السلام عليكم

اخى العالى يوسف استفدت كثيرا من مواضيع اشكرك شكر خاص على مواضيعك الجميلة

بالنسبة للكود ليس له له كلمة سر ( جرب فك الحماية يدويا سوف لا يطلب منك كلمة سر )

بالنسبة لاستخدامه فى المرفق

_____________________________.rar

[Ahmed Emannan]

مشكور اخي علي توضيحك

تحياتي