hicham2610 قام بنشر ديسمبر 22, 2018 مشاركة قام بنشر ديسمبر 22, 2018 السلام عليكم هل من كود vba يمكن من حماية جميع المعادلات في خلايا جميع الأوراق التي بها المعادلات من رؤية تلك المعادلات او تغييرها وذلك بطلب من أراد ذلك إدخال رقم سري وليك ذلك الرقم السري:123 وجزاكم الله خيرا رابط هذا التعليق شارك More sharing options...
Ali Mohamed Ali قام بنشر ديسمبر 22, 2018 مشاركة قام بنشر ديسمبر 22, 2018 جرب هذان الكودان للحماية 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 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان