طلب كود vba يمكن من حماية جميع معادلات ملف بجميع أوراقه وشكرا

[hicham2610]

السلام عليكم

هل من كود vba يمكن من حماية جميع المعادلات في خلايا جميع الأوراق التي بها المعادلات من رؤية تلك المعادلات او تغييرها وذلك بطلب من أراد ذلك إدخال رقم سري

وليك ذلك الرقم السري:123

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

[Ali Mohamed Ali]

جرب هذان الكودان للحماية

Sub ProtectAll()
    Dim sht As Worksheet
    Dim twb As Workbook
            Set twb = ThisWorkbook
                For Each sht In twb.Sheets
            sht.Protect "123"
        Next sht
End Sub

ولفك الحماية

Sub UnProtectAll()
    Dim sht As Worksheet
    Dim twb As Workbook
            Set twb = ThisWorkbook
                For Each sht In twb.Sheets
            sht.Unprotect "123"
        Next sht
End Sub