حماية ورقة اكسيل

[الفارس محمد رجب]

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

وعاوز كود تانى يفك الحماية بنفس الباسورد واربطه بزرار 

[abdelfattahbadawy]

Sub ProtectSheets101()
Dim wsheet As Worksheet
For Each wsheet In ActiveWorkbook.Worksheets
wsheet.Protect "s2021", True, True
Next wsheet
End Sub
Sub unprotectsheets102()
Dim wsheet As Worksheet
For Each wsheet In ActiveWorkbook.Worksheets
wsheet.Unprotect password:="s2021"
Next wsheet
End Sub