Как скрыть панель инструментов?

[Град]

Друзья,
Как сделать так, что бы при открытии определенной книги Excel в ней не отражалась панель инструментов, осталось только основное меню?

[SAS888]

В модуль книги вставить код:

Private Sub Workbook_Open()
    Application.DisplayFullScreen = True
End Sub

[Град]

Работает, вот только и на других книгах тоже. Что ни открываю- всё без панели(((
Хотя та книга в которой макрос записан закрыта. Может глюк какой?

[SAS888]

Нет, не глюк. По событию закрытия книги, если нужно, восстанавливайте то, что было, т.е. так:

Private Sub Workbook_Open()
    Application.DisplayFullScreen = True
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.DisplayFullScreen = False
End Sub

Теперь откройте и закройте книгу, содержащую этот код.

[Град]

Спасибо, все работает!
А можно еще вопрос?

Как сделать так чтобы форма при открытии автоматом делалась во весь экран.?
Знаю что в VB это делать можно в настройках формы, а вот в Excele найти не могу.

[SAS888]

Я как-то искал нечто подобное. Тоже не нашел. Сделал так (см. вложение).
Естественно, что есть зависимость от установленного разрешения экрана. Если 1280х1024, то все ОК. Если другая, то нужно подобрать соответствующие цифры в коде. Разрешение экрана, если нужно, можно определять при открытии книги, и устанавливать в соответствии с этим.
Чтобы войти в VBE, откройте приложенный файл, удерживая нажатой клавишу "Shift" (предотвратив автозапуск макроса).

P.S. Вопрос актуален.

[Град]

Круто, а как автоматически определять разрешение (пользователей несколько)?

[SAS888]

Для этой цели я использую WinAPI-функцию:

Private Declare Function GetSystemMetrics Lib "user32.dll" (ByVal nIndex As Long) As Long

Sub Resolution()

    Dim x As Long, y As Long
    x = GetSystemMetrics(1&): y = GetSystemMetrics(0&)
    MsgBox "Разрешение экрана : " & x & "x" & y
    
End Sub

[Град]

не могу остановить запуск макроса.(( Shift не помогает

[SAS888]

Откройте Excel, и уже в открытом нажать открыть файл, выбрать в окне нужный, и тогда, удерживая Shift нажать кнопку "Открыть".