excel表中菜单栏工具栏都没了怎么办?
时间:2022-07-31 02:33:50
打开一个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中就可以看到工具栏、菜单栏等都又出现了。
![](/images/zang.png)
![](/images/jiucuo.png)
猜你喜欢
wps文字中如何移动文本框
![](https://img.aspxhome.com/file/2023/4/53674_0s.jpg)
EXCEL中如何批量去掉带数字的前缀?
![](https://img.aspxhome.com/file/2023/2/36812_0s.jpg)
Word文档下标怎么打出来?
![](https://img.aspxhome.com/file/2023/0/31560_0s.jpg)
Win10如何强行删除开机密码?
![](https://img.aspxhome.com/file/2023/1/50651_0s.png)
Word2007中一次性导出所有图片的方法
![](https://img.aspxhome.com/file/2023/2/21222_0s.jpg)
win10更新1903卡在90
![](https://img.aspxhome.com/file/2023/6/48256_0s.jpg)
Word的微移是什么 Word的微移介绍
![](https://img.aspxhome.com/file/2023/1/29641_0s.png)
怎么把文本转换成图片
![](https://img.aspxhome.com/file/2023/2/34582_0s.png)
Word表格中斜线表头的绘制
Win10家庭版如何获取文件夹管理员权限?
![](https://img.aspxhome.com/file/2023/3/48923_0s.jpg)
没有收到Win10升级提示怎么办?
![](https://img.aspxhome.com/file/2023/3/49363_0s.png)
如何辨别真假MagSafe充电器?
![](https://img.aspxhome.com/file/2023/3/46063_0s.png)
Excel单元格无法合并怎么办
![](https://img.aspxhome.com/file/2023/6/36376_0s.jpg)
word2016怎么编辑尾注? word添加/修改/删除尾注的教程
![](https://img.aspxhome.com/file/2023/4/30694_0s.jpg)
word 2010 段落缩进的设置方法
![](https://img.aspxhome.com/file/2023/3/24763_0s.jpg)
word如何设置每行字符数
![](https://img.aspxhome.com/file/2023/5/35955_0s.png)
win10怎么还原语言栏位置?win10还原语言栏位置教程
![](https://img.aspxhome.com/file/2023/2/48522_0s.png)
Word中出现打不开的处理方法
Word文档主题样式怎么使用
Word如何在一个页面显示两页或者更多页
![](https://img.aspxhome.com/file/2023/7/31727_0s.png)