EXCEL的菜单栏和工具栏不见了的恢复办法

EXCEL的菜单栏和工具栏不见了的恢复办法 如果你的excle菜单栏和工具栏都不见了 如下图: 跟我一起来恢复吧 打开一个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中就可以看到工具栏等都又出现 了。