свернуть развернуть Книгу

[segail]

Здравствуйте.
Как свернуть и развернуть Книгу?

[EducatedFool]

Я бы посоветовал так:

Private Sub CommandButton1_Click()
    Application.Visible = False
End Sub

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

[The_Prist]

Если вдруг захочется сворачивать только одну книгу, а не весь Excel

Windows("Книга1.xls").Visible = False
Windows("Книга1.xls").Visible = True

[segail]

Сообщение от EducatedFool

Я бы посоветовал так:

Private Sub CommandButton1_Click()
    Application.Visible = False
End Sub

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

Опасная команда.
Application.Visible = False
Если выполнить только ее, то как потом найти книгу?