التعلديل في هذا الكود لجعل عمل رقم سري على صفحات معينة ورقة 1 ورقة 4 فقط

[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

كووود.xlsx

[محمد هشام.]

Sub TEST_Protect()

WS = Array("ورقة1", "ورقة4")

On Error Resume Next
    
 For i = LBound(WS) To UBound(WS)
 
    Sheets(WS(i)).Protect userinterfaceonly:=True, Password:="1234"
    
    Next i
    On Error GoTo 0
    
End Sub

 

كووود.xlsm

[mohmod zedan]

وممكن أضيف اي صفحات تاني عادي

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

[محمد هشام.]

WS = Array("Sheet1", "Sheet2", "Sheet3", "Sheet4", "Sheet5", "Sheet6", "Sheet7", "Sheet8")

 

[mohmod zedan]

تسلم أخى حياك الله

بورك الله فيك