حماية شرائح عدة في وقت واحد

[hasdan]

لدي ملف اكسل يحتوي على عدد 30 شريحة اقوم بحمايتها برقم سري ولكن الواحدة تلو الاخرى

هل هناك طريقة لحمايتهم معا دون اللجوء الى حماية الملف ككل

[هادى محمد المامون سالم]

بسم الله الرحمن الرحيم

لحمايه جميع أوراق العمل استخدم الكود التالى :

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

كلمه السر hady و لفك حمايه جميع أوراق العمل استخدم الكود التالى :

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

مرفق ملف

السلام عليكم

Protect_01.rar

[محمد عسكر]

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

أستاذنا / هادى سالم

بارك الله فيك و جزاك الله خيرا

[hasdan]

مشكور استاذنا هادي

رحم الله والديك

[العماني]

اسمح لى استاذنا العزيز بس لو تعلمنا كيف وين نضع هذا الكوود

[صعصعه]

جاري التحميل

ومشكورين .....................