تعديل في الكود لوضع رقم سري داخلة لحماية الشيت

[mohmod zedan]

 Private Sub Workbook_Open()

Dim Ws As Worksheet

For Each Ws In Worksheets

Ws.Protect UserInterFaceOnly:=True

Next

End Sub 

تعديل في الكود لوضع رقم سري داخلة لحماية الشيت

تم تعديل ديسمبر 10, 2023 بواسطه mohmod zedan

[محمد هشام.]

Private Sub Workbook_Open()
    Dim ws As Worksheet
 
    For Each ws In ThisWorkbook.Worksheets
        ws.Protect UserInterfaceOnly:=True, Password:="1234"
    Next ws
End Sub