长荣航空 北京招聘:Excel VBA 工具栏隐藏、显示

来源:百度文库 编辑:偶看新闻 时间:2024/04/30 06:33:39
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