Excel VBA

Excel VBA

显示隐藏菜单 编辑栏和页签

Sub visible()
'Application.DisplayFormulaBar = True '显示编辑栏
ActiveWindow.DisplayHeadings = True   '隐藏行列标题
ActiveWindow.DisplayWorkbookTabs = True '显示工作表标签栏
Application.DisplayFullScreen = False '把所有的菜单显示
End Sub

Sub hidden()
'Application.DisplayFormulaBar = False '隐藏编辑栏
ActiveWindow.DisplayHeadings = False   '隐藏行列标题
ActiveWindow.DisplayWorkbookTabs = False '隐藏工作表标签栏
Application.DisplayFullScreen = True '把所有的菜单都隐藏
End Sub

ActiveWindow.DisplayGridlines = False                    '隐藏网格
ActiveWindow.DisplayHeadings = False                   '隐藏行列标题
ActiveWindow.DisplayWorkbookTabs = False           '隐藏工作表标签
ActiveWindow.DisplayHorizontalScrollBar = False    '隐藏水平滚动条
ActiveWindow.DisplayVerticalScrollBar = False        '隐藏垂直滚动条
Application.DisplayFormulaBar = False '隐藏编辑栏

还需要调整，编辑栏隐藏要执行二次，不知道什么原因?