اذهب الي المحتوي
أوفيسنا

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


hicham2610

الردود الموصى بها

السلام عليكم

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

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

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

رابط هذا التعليق
شارك

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

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

 

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information