体验零代码搭建

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

网友投稿  ·  2024-01-17 23:01  ·  云表格  ·  阅读 502


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

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

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

如下图,菜单栏和工具栏都消失了:

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


如何利用Excel批量生成指定名称的文件夹 << 上一篇
2024-01-17 23:01
资产管理系统软件的选择与应用(提高企业资产管理的数字化水平)
2024-01-17 23:01
下一篇 >>

相关推荐