(21/01/2020, 14:13)accessman yazdı: böyle olsa hem şifrelese hem gizlese

Sub hide_All_Sheets()
    Dim ws As Worksheet
   
    For Each ws In Worksheets
      Ws.protect  "12345"
      ws.Visible = false
    Next
End Sub

Bende kodu öyle yazacaktım extra yazmadım visible olayını.

Makro kaydet ile bir sayfayı şifreleyi şifresini kaldırın.Aynı zamanda şifrelemede çıkan seçeneklerlede oynayın nasık kod çıkacak.
Ona görede yaparsınız.

teşekürler feraz