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

2024.04.22

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