Sub UnHide()
Dim strPassword As String

'Запрос пароля

strPassword = InputBox("Enter Password")

If strPassword <> "password" Then MsgBox "Wrong Password": Exit Sub

'Раскрывает лист

Sheets("Заданный_лист").Visible = True

End Sub

 

Реклама