excel菜单栏恢复

Sub aaa()
Dim aa, bb As Boolean
aa = True
bb = False
https://www.360docs.net/doc/e62793146.html,mandBars("ply").Enabled = aa
'右键点工作表标签是否可用
https://www.360docs.net/doc/e62793146.html,mandBars("cell").Enabled = aa
'右键点单元格是否可用
https://www.360docs.net/doc/e62793146.html,mandBars("toolbar list").Enabled = aa
'右键点工具栏及“视图”－“工具栏”是否可用
https://www.360docs.net/doc/e62793146.html,mandBars("autocalculate").Enabled = aa
'右键点状态栏是否可用
https://www.360docs.net/doc/e62793146.html,mandBars("worksheet menu bar").Enabled = aa
https://www.360docs.net/doc/e62793146.html,mandBars(1).Enabled = aa
'以上两句的作用都是把菜单取消
https://www.360docs.net/doc/e62793146.html,mandBars(2).Enabled = aa
'暂时未知
https://www.360docs.net/doc/e62793146.html,mandBars(3).Enabled = aa
'常用工具栏是否可用
https://www.360docs.net/doc/e62793146.html,mandBars(3).Controls(3).Enabled = aa
'使常用工具栏中第三个“保存”是否可用
https://www.360docs.net/doc/e62793146.html,mandBars(4).Enabled = aa
'格式工具栏是否可用
https://www.360docs.net/doc/e62793146.html,mandBars(5).Enabled = aa
'暂时未知
https://www.360docs.net/doc/e62793146.html,mandBars(1).Enabled = aa
'恢复菜单可用
https://www.360docs.net/doc/e62793146.html,mandBars(1).Controls(1).Enabled = aa
'使菜单中的“文件”是否可用
https://www.360docs.net/doc/e62793146.html,mandBars("file").Controls("页面设置(&U)...").Enabled = aa
'菜单中的“文件”中的“页面设置”是否可用
https://www.360docs.net/doc/e62793146.html,mandBars(1).Controls(4).Enabled = aa
'菜单中的第四个“插入”是否可用
https://www.360docs.net/doc/e62793146.html,mandBars(1).Controls(4).Caption = "victor"
'更改名称
https://www.360docs.net/doc/e62793146.html,mandBars(1).Reset
'恢复菜单
Application.DisplayFormulaBar = aa
'编辑栏是否显示
Application.DisplayStatusBar = aa
'状态栏是否显示
ActiveWindow.DisplayHeadings = aa
'行号列标是否显示
ActiveWindow.DisplayWorkbookTabs = aa
'工作表标签是否显示
ActiveWindow.DisplayHorizontalScrollBar = aa
'水平滚动条是否显示
ActiveWindow.DisplayVerticalScrollBar = aa
'垂直滚动条是否显示
End Sub