菜单栏不见.doc

EXCEL的菜单栏和工具栏不见了的恢复办法
(2012-04-2714:21:09)
HYPERLINK"javascript:;"转载▼
标签：
HYPERLINK"http://search.sina.com.cn/?c=blog&q=it&by=tag"\t"_blank"it分类：HYPERLINK"http://blog.sina.com.cn/s/articlelist_2728119001_2_1.html"\t"_blank"电脑小故障如果你的excle菜单栏和工具栏都不见了如下图：跟我一起来恢复吧
打开一个excel文件，按ALT+F11，然后在打开的窗口中点击插入——模块，如下图

把下面蓝色字体复制到对话框中：
Subaaa()Dimaa,bbAsBooleanaa=Truebb=FalseApplication.CommandBars("ply").Enabled=aa'右键点工作表标签是否可用Application.CommandBars("cell").Enabled=aa'右键点单元格是否可用Application.CommandBars("toolbarlist").Enabled=aa'右键点工具栏及“视图”－“工具栏”是否可用Application.CommandBars("autocalculate").Enabled=aa'右键点状态栏是否可用Application.CommandBars("worksheetmenubar").Enabled=aaApplication.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'垂直滚动条是否显示EndSub
然后按F5，运行宏aaa，然后关闭，回到excel中就可以看到工具栏等都又出现了。