Макрос отображения всех листов в книге

 

Sub UnHide()

Dim strPassword As String

strPassword = InputBox("Enter Password")

If strPassword <> "palikhov" Then MsgBox "Wrong Password":

Exit Sub

For Each sheet In ActiveWorkbook.Sheets

If sheet.Visible > -1 Then

sheet.Visible = -1

End If

Next sheet

End Sub