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