Как скрыть ленту в excel vba

Я не вижу, чтобы кто-то еще поднял этот вопрос… Это не обходной путь, это фактический idMSO для того, что, я думаю, вы ищете. Этот код заставляет мое окно Excel выглядеть так, как будто все прошло так же, как первый вариант для Auto-Hide Ribbon,

Перед запуском кода мое окно выглядит примерно так: размер «Восстановить»:

Выполнение следующего кода:

Sub HideTheRibbon()
    CommandBars.ExecuteMso "HideRibbon"
End Sub

Сделает ваше окно похожим на это в максимизированном размере окна (точно так же, как если бы вы нажали Auto-Hide Ribbon кнопка вручную):

Если вы хотите, чтобы лента автоматически скрывалась при открытии книги, вставьте ее в код книги:

Sub Workbook_Open()
    CommandBars.ExecuteMso "HideRibbon"
End Sub

В качестве альтернативы, чтобы достичь того же, вы можете поместить этот код в модуль:

Sub Auto_Open()
    CommandBars.ExecuteMso "HideRibbon"
End Sub

Если вы хотите, чтобы окно вернулось в нормальное состояние, вы снова запускаете тот же код. Другими словами, следующий код не будет делать никаких визуальных изменений при запуске, потому что idMSO «HideRibbon» является toggleButton:

Sub HideTheRibbon()
    CommandBars.ExecuteMso "HideRibbon"
    CommandBars.ExecuteMso "HideRibbon"
End Sub

Если вы хотите получить полный список всех idMSO в Excel, выберите следующее: Excel 2013+, Excel 2010, Excel 2007

Я использую это в целях презентации

ActiveWindow.DisplayGridlines = False

ActiveWindow.DisplayHeadings = False

Application.DisplayFormulaBar = False

Application.DisplayFullScreen = True Это то, что я использовал, чтобы скрыть ленту

Возможно, вам следует сделать что-то более сложное:

использование CommandBars.ExecuteMso "MinimizeRibbon" показать / скрыть ленту В зависимости от того, что вы хотите, вы можете показать / скрыть все другие вкладки на ленте. Например, используйте что-то из кода здесь -> Excel Скрыть / Показать все вкладки на ленте, кроме настраиваемой вкладки

Таким образом 2 шага:

Шаг 1 — показать или скрыть с помощью CommandBars.ExecuteMso

Шаг 2 — показать или скрыть остальные ссылки с некоторыми макросами по ссылке.

Немного большой обходной путь, но вы получите то, что хотите.

Я вызываю этот макрос в Workbook_Open, чтобы проверить наличие ленты, и если она не скрыта, она скрывает ленту (на самом деле она находится в другом подпрограмме, которая также удаляет строку формул, строку состояния, заголовки и линии сетки в Workbook_Open)…

Sub HideRibbon()
If CommandBars("Ribbon").Controls(1).Height < 100 Then
Exit Sub
Else
    CommandBars.ExecuteMso ("MinimizeRibbon")
End If
End Sub

Затем я вызываю этот макрос в Workbook_BeforeClose, чтобы проверить наличие ленты, и если она не отображается, она покажет ленту для следующей открытой таблицы Excel.

Sub ShowRibbon()
If CommandBars("Ribbon").Controls(1).Height > 100 Then
Exit Sub
Else
    CommandBars.ExecuteMso ("MinimizeRibbon")
End If
End Sub

Это исключает возможность скрытия ленты, когда рабочая книга открыта, и пользователь затем вручную показывает ленту, которая, в свою очередь, перевернет показ при закрытии и фактически скроет ленту. При открытии лента будет показана снова. Это будет оставаться неизменным каждый раз при открытии и закрытии книги.

Попробуйте это:

Sub ShowHideRibbon()

If CommandBars("Ribbon").Controls(1).Height < 100 Then
    CommandBars.ExecuteMso ("MinimizeRibbon")
Else
    CommandBars.ExecuteMso ("MinimizeRibbon")
End If

End Sub

Или это:

Sub ShowHideRibbon1()

If Application.ExecuteExcel4Macro("Get.ToolBar(7,""Ribbon"")") Then
    Application.ExecuteExcel4Macro "Show.ToolBar(""Ribbon"", False)"
Else
    Application.ExecuteExcel4Macro "Show.ToolBar(""Ribbon"", True)"
End If

End Sub

Сначала перейдите в «Параметры Excel» и перейдите к «Панели быстрого действия».

Оттуда найдите «Скрыть ленту» и добавьте на панель инструментов. После того, как он находится в QAT, вы можете быстро вызвать его с помощью ALT+# (на моем компьютере это восьмая вещь, поэтому ALT+8 будет автоматически скрываться).

Затем просто добавьте подпрограмму, которая выполняет SendKeys ALT, затем 8:

Sub Macro1()
ActiveSheet.Activate
'Cells(1, 1).Select
SendKeys "%0", True
SendKeys "8", True

End Sub

Примечание: я знаю, что глупо иметь ActiveSheet.ActivateЯ только что добавил это, чтобы проверить макрос. В зависимости от того, как он вызывается, вы можете удалить / закомментировать эту строку. % эквивалентно ALTи технически, я должен нажать 0, затем 8, отсюда две строки.

Чтобы этот код работал в Excel 2016, вам потребуется следующий код в режиме «ThisWorkbook».

Кредит идет в BigBen — не я

Private Sub Workbook_Open()
application.CommandBars.ExecuteMso "HideRibbon"
End Sub