как отобразить скрытую книгу

[and150382]

Добрый день!!

Написал код который скрывает всю книгу

Private Sub Workbook_Open()
Application.Visible = False
UserForm1.Show
End Sub

В форме сделал кнопку и хочу чтобы при нажатии на неё открывалась книга.

Private Sub Workbook_Open()
Application.Visible = True
UserForm1.Show
End Sub

выдает ошибку.
Подскажите в чем дело?

[Скрипт]

and150382, сначала нужно понять, что в программе "Excel" есть два вида окна:

1. окно программы "Excel",
2. окно Excel-книги.

Какое окно вы хотите скрыть и отобразить?

[DiemonStar]

прежде всего: где и какую ошибку выдаёт?

и вопрос №2: у вас две процедуры с одинаковым именем:

Private Sub Workbook_Open()

?

[The_Prist]

А второй код у Вас в модуле формы на кнопке? Почему он тоже Workbook_Open()? Почему не что-то вроде CommandButton1_Click?
И почему второй раз отображаете форму UserForm1.Show? Ведь она уже отображена, раз Вы кнопку на ней нажимаете.

[and150382]

вот пример в котором я хочу повесить код на кнопку "показать таблицу", чтобы показывалась база

[and150382]

Вот какую ошибку выдает

[The_Prist]

Private Sub CommandButton2_Click()
    Application.Visible = True
    End
End Sub

[and150382]

The_Prist спасибо, всё работает!

[and150382]

Подскажите, как мне скрыть\отобразить книгу Пример

Выше способы скрываюи и отображают все книги, а мне нужно только эту. Чтобы с другими можно было работать

[The_Prist]

Вместо Application.Visible = False

ThisWorkbook.Windows(1).Visible = False

и отображать соответственно.