21/01/2020, 14:20
(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.