恢复Excel菜单栏、工具栏的代码

Admin | 2013-10-17 8:07:42 | 被阅次数 | 5706

温馨提示!

如果未能解决您的问题，请点击搜索；登陆可复制文章，点击登陆

　　下面代码的功能，是用来恢复Excel工作界面菜单栏工具栏的办法，因为有的时候，电子表格的菜单栏和工具栏会突然消失。

　　使用的时候，在电子表格界面中，按下ALT+F11键，进入到代码编写窗口，将如下代码粘贴到一个模块里面即可运行。

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