Sub hide_All_Sheets()
Dim ws As Worksheet
For Each ws In Worksheets
Ws.protect "12345"
Next
End Sub
Buda sayfaları şifreler
Sub hide_All_Sheets()
Sub hide_All_Sheets()
