EXCEL的工具栏和菜单栏丢失故障的完美解决方法

housex

EXCEL的工具栏和菜单栏丢失故障的完美解决方法



　　excel里的工具栏和菜单栏丢失故障，一般可以通过重新安装Office软件来修复，但要注意，重装Office需要把原来的Office完全卸载，也就是说，先在控制面板的添加删除程序中把office卸载，再使用金山卫士之类的安全工具把注册表里的多余选项删除，再到原来的安装位置把原来的安装文件夹删除，然后再进行重新安装。
　　
　　如果不愿意重装的话，也可以试试这个方法：
　　
　　打开一个excel文件，按ALT+F11，然后在打开的窗口中点击插入——模块，在出线的对话框中输入下面这段程序：
　　
　　Sub aaa()
　　
　　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
　　
　　'垂直滚动条是否显示
　　
　　End Sub
　　
　　然后按F5，运行宏aaa，然后关闭，回到excel中就可以看到工具栏等都又出现了。
　　

zhoufu145

这个有点高级啊！

zhewin

没事来逛逛