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

الحماية و فك الحماية لورقة العمل فى EXCEL VBA



لحماية ورقة العمل بدون باسورد
Sheets("Sheet1").Protect



لفك حماية ورقة العمل بدون باسورد
Sheets("Sheet1").Unprotect



لحماية ورقة العمل بباسورد
Sheets("Sheet1").Protect Password:="myPassword"



لفك حماية ورقة العمل باستخدام باسورد
Sheets("Sheet1").Unprotect Password:="myPassword"



عدم اظهار رسالة خطاء فى حالة لن الباسورد غير صحيح

Sub CatchErrorForWrongPassword()
'Keep going even if error found
On Error Resume Next

'Apply the wrong password
Sheets("Sheet1").Unprotect Password:="incorrectPassword"

'Check if an error has occured
If Err.Number <> 0 Then
MsgBox "The Password Provided is incorrect"
Exit Sub
End If

'Reset to show normal error messages
On Error GoTo 0

End Sub



حماية المعادلات فقط و عدم اظهارها مع عدم حماية باقى الخلايا
Cells.Select
Selection.Locked = False
Selection.SpecialCells(xlCellTypeFormulas, 23).Select
Selection.Locked = True
Sheets("yasser").Protect Password:="1234"



كل معاملات دالة الحماية

Worksheets("Sheet1").Protect Password:=strPassword, DrawingObjects:=True, Contents:=True, Scenarios:=True, _
UserInterfaceOnly:=True, AllowFormattingCells:=False, AllowFormattingColumns:=False, _
AllowFormattingRows:=False, AllowInsertingColumns:=False, AllowInsertingRows:=False, _
AllowInsertingHyperlinks:=False, AllowDeletingColumns:=False, AllowDeletingRows:=False, _
AllowSorting:=False, AllowFiltering:=False, AllowUsingPivotTables:=False