Как отображать вкладки и ленты при закрытии Excel?

Question

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

Я написал код ниже, когда Excel открывает / закрывает. Но нельзя заставить ленты появляться снова, не нажимая вручную.

Private Sub Workbook_Open()

Application.CommandBars.ExecuteMso "HideRibbon"
ActiveWindow.DisplayGridlines = False

ActiveWindow.DisplayHeadings = False

Application.DisplayFormulaBar = False

Application.DisplayFullScreen = True
End Sub


Sub Auto_close()
Application.CommandBars.ExecuteMso "hideRibbon"
Application.CommandBars.ExecuteMso "hideRibbon"

ActiveWindow.DisplayGridlines = True

ActiveWindow.DisplayHeadings = True

Application.DisplayFormulaBar = True
End Sub

Answer 1

Отображается лента:

Application.ExecuteExcel4Macro "show.toolbar(""Ribbon"", True)"

Это скрывает ленту:

Application.ExecuteExcel4Macro "show.toolbar(""Ribbon"", False)"

Answer 2

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

Private Sub Workbook_Open()
ActiveWindow.DisplayGridlines = False
ActiveWindow.DisplayHeadings = False
Application.DisplayFormulaBar = False
Application.DisplayFullScreen = True
End Sub

Sub test()
Application.DisplayFullScreen = False
ActiveWindow.DisplayGridlines = True
ActiveWindow.DisplayHeadings = True
Application.DisplayFormulaBar = True
Application.CommandBars("Standard").Visible = True
End Sub