Sub Hide()

Dim strPassword As String
strPassword = InputBox("Enter Password") 'Запрос на ввод пароля
If strPassword <> "palikhov" Then MsgBox "Wrong Password": Exit Sub&nbsp;'Если пароль не правильный, то выход из программы

Sheets("Заданный_лист").Visible = xlVeryHidden&nbsp;'Скрывает лист

End Sub

 

Advertisements