Excel菜单栏和工具栏不见了怎么办

　　Excel是办公一族的必备软件，当你打开Excel却发现excle菜单栏和工具栏不见了，那肯定很着急吧？这个问题很多朋友都遇到过，接下来，就为大家介绍一下解决方法。

　　如下图，菜单栏和工具栏都消失了：

　　1、打开一个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中就可以看到工具栏等都又出现了。

本文地址：百科生活频道 https://www.neebe.cn/live/904390.html，易企推百科一个免费的知识分享平台，本站部分文章来网络分享，本着互联网分享的精神，如有涉及到您的权益，请联系我们删除，谢谢！