الكود هذا مش راضي يشتغل معي يرجي المساعده

[mailk najeeb]

Dim  As Worksheet
    For Each A In Worksheets
        If A.ProtectScenarios = False Then
        
           A.Protect "123"
       End If
    Next A
End Sub

Dim A As Worksheet
    For Each A In Worksheets
        If A.ProtectScenarios = Trur Then
        
           A.Unprotect "123"
       End If
    Next A
End Sub

 

 

[عبدالله الصاري]

تصحيج للكود

المصنف1.xlsm