Еще раз прошу меня простить но я вновь к вам за помощью и советом.
В одной из тем (Александр помог мне прописать код для открытия скрытого листа "для руководителей через пароль") кросс:My WebPage
[vba]Код
Private Sub CommandButton2_Click()
If InputBox("Введи пароль") = "951" Then
Sheets("Журнал план-факт поставки").Visible = True
Sheets("Журнал план-факт поставки").Select
End If
End Sub
[/vba]
я его немного поправил в виду того что данный лист был скрыт и получилось вот так вот:
[vba]Код
Private Sub CommandButton11_Click() 'Перейти на лист Общий журнал заявок на транспорт который скрыт
If InputBox("ВВЕДИТЕ ПАРОЛЬ") = "951" Then
Sheets("журнал заявок на транспорт").Visible = True
Sheets("журнал заявок на транспорт").Select
End If
Sheets("журнал заявок на транспорт").Select
Sheets("Диспечерская служба").Select
ActiveWindow.SelectedSheets.Visible = False
Sheets("журнал заявок на транспорт").Visible = True
Sheets("журнал заявок на транспорт").Select
End Sub
[/vba]
и теперь заметил что если я отменяю команду открытия листа то код начинает ругаться ((((
[img][/img]
как исправить это???
Или же я что то слишком переборщил с дополнениями ((((