阿里云优点:Excel VBA 工具栏隐藏、显示
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.CommandBars("worksheet menu bar").Enabled = True '显示菜单栏
Application.CommandBars("Formatting").Visible = True '显示格式工具栏
Application.DisplayFormulaBar = True '显示编辑栏
Application.CommandBars("Standard").Visible = True '显示常用工具栏
Application.CommandBars("PivotTable").Visible = True '显示数据透视表工具栏
Application.CommandBars("Visual Basic").Visible = True '显示Visual Basic工具栏
ActiveWindow.DisplayWorkbookTabs = True '显示工作表标签栏
End Sub
Private Sub Workbook_Open()
Application.CommandBars("worksheet menu bar").Enabled = False '隐藏菜单栏
Application.CommandBars("Formatting").Visible = False '隐藏格式工具栏
Application.DisplayFormulaBar = False '隐藏编辑栏
Application.CommandBars("Standard").Visible = False '隐藏常用工具栏
Application.CommandBars("PivotTable").Visible = False '隐藏数据透视表工具栏
Application.CommandBars("Visual Basic").Visible = False '隐藏Visual Basic工具栏
ActiveWindow.DisplayWorkbookTabs = False '隐藏工作表标签栏
End Sub