excel菜单栏和工具栏不见了怎么办呢(excel菜单栏和工具栏都没了)
Excel是上班族必备的软件。当你打开Excel发现excel的菜单栏和工具栏不见了,你一定很着急吧?很多朋友都遇到过这个问题。下面小编就为大家介绍一下解决方法。
如下图,菜单栏和工具栏都消失了:
1、打开一个excel文件,按ALT+F11,在打开的窗口中点击插入——模块,如下图:
将以下字体复制到对话框中:
子aaa()
Dim aa, bb 作为布尔值
aa=真
bb=错误
Application.CommandBars('ply').Enabled=aa
'右键工作表选项卡可用
Application.CommandBars('cell').Enabled=aa
'右键单元格可用
Application.CommandBars('工具栏列表').Enabled=aa
'右键工具栏和“查看”-“工具栏”可用
Application.CommandBars('autocalculate').Enabled=aa
'右键状态栏可用
Application.CommandBars('工作表菜单栏').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('Page Setup (U).').Enabled=aa
“菜单”中“文件”中的“页面设置”是否可用
Application.CommandBars(1).Controls(4).Enabled=aa
'菜单中第四个“Insert”是否可用
Application.CommandBars(1).Controls(4).Caption='胜利者'
'更换名字
Application.CommandBars(1).Reset
'恢复菜单
Application.DisplayFormulaBar=aa
'是否显示编辑栏
Application.DisplayStatusBar=aa
'是否显示状态栏
活动窗口。 DisplayHeadings=aa
'是否显示行号列标签
ActiveWindow.DisplayWorkbookTabs=aa
'是否显示工作表标签
ActiveWindow.DisplayHorizontalScrollBar=aa
'是否显示水平滚动条
ActiveWindow.DisplayVerticalScrollBar=aa
'是否显示垂直滚动条
结束子
好了,然后按F5,运行宏aaa,然后关闭,回到excel就可以看到工具栏之类的又出现了。
关于excel菜单栏和工具栏不见了怎么办(excel菜单栏和工具栏不见了)的介绍到这里就结束了,了解更多办公软件知识可以收藏我们的网站,我们将为你提供更多精彩内容。本文由无忧网发布,不代表九游娱乐立场,转载联系作者并注明出处:https://www.ktwxcd.com/excel/249928.html