جرب هذان الكودان للحماية
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