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

[محمد طاهر عرفه]

المثال الأول

يقوم بعمل الحماية

Sub Pr1()

    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True


End Sub

ثم فكها اذا كتبنا كلمة السر و هي 123

Sub Pr2()

x = InputBox("please enter PAssword '123'", "Password", 123)

If x <> 123 Then

 MsgBox "Sorry !!! "

 Exit Sub

End If



    ActiveSheet.Protect DrawingObjects:=False, Contents:=False, Scenarios:=False


End Sub

UnprotectSheet.rar

[محمد طاهر عرفه]

المثال الثاني

مثل السابق

مع الحماية باستخدام كلمة سر

و هي 1234

لأن الحالة السابقة يمكن فك الحماية من القوائم مباشرة

Sub Pr1()

    ActiveSheet.Protect Password:=1234, DrawingObjects:=True, Contents:=True, Scenarios:=True


End Sub


Sub Pr2()

x = InputBox("please enter PAssword '1234'", "Password", 123)

If x <> 1234 Then

 MsgBox "Sorry You are not Allowed !!! "

 Exit Sub

End If



    ActiveSheet.Protect Password:=1234, DrawingObjects:=False, Contents:=False, Scenarios:=False


End Sub

UnprotectSheetPass.xls

[محمد ابوالعلا البتيتي]

جميل بارك الله فيك

[تحيا مصر]

موضوع جميل جدا ومفيد تسلم الايادى