Sub odkryharky()
Dim Harok As Worksheet
For Each Harok In ActiveWorkbook.Worksheets
Harok.Visible = xlSheetVisible
Harok.Unprotect Password:="heslo"
Next Harok
End Sub
Sub skryharky()
Dim Harok As Worksheet
On Error GoTo chybova_hlaska
For Each Harok In ActiveWorkbook.Worksheets
Harok.Visible = xlSheetHidden
Next Harok
Sheets("Hárok2").Visible = True
chybova_hlaska:
End Subcitovat