关闭Excel时如何显示选项卡和功能区？

我有一个宏，当这个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

试试这个

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

---

这将显示功能区：

Application.ExecuteExcel4Macro“显示工具栏”（“功能区”，True）”

这将隐藏功能区：

---

Application.ExecuteExcel4Macro“show.toolbar”（“Ribbon”，False）”

尝试在关闭模块中添加此行Application.commandbar（“Standard”）.Visible=True。@ImranMalek是否删除Application.commandbar.ExecuteMso“hideribon”行？@ImranMalek此行不起作用仍然获得白色条：'（当打开一个新文件对我不起作用时，我已在主要问题中添加了一张图片，显示了我的功能区在新文件中的外观，我无法让vba将其还原：（Remove Application.CommandBars.ExecuteMso“Hideribon”这行也是打开的！是的，这样做仍然不起作用，但打开打开文件我希望它被隐藏，以阻止用户编辑文件（大多数人不知道如何手动关闭它，所以我需要一个宏在关闭文件时关闭它。如果你有这样的问题，请在我的答案中查看代码，然后保存文件，手动取消隐藏菜单栏，关闭并重新打开excel，现在如果你再次运行代码，它将工作。我试图避免手动方面，因为我将给你这些表单。）其他人使用，他们不知道如何手动执行此操作。如果我执行您编写的操作，这将保留最新视图，但我希望在关闭时返回默认视图。