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