解决方法:
1、打开一个Excel文件,按alt+f11,然后在打开的窗口中点击插入——模块,如下图:
把下面的字体复制到对话框中:
SUb aaa()
dim aa, bb asboolean
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中就可以看到工具栏等都又出现了。
具体方法操作如下:
方法①按组合键【ctrl】+【f1】‘
方法②点击“选项卡”取消勾选“功能区最小化”,如图
双击任一选项名称,如“开始”“插入”“数据”等名称,即可恢复显示工具栏。
快捷键ctrl+f1或者点击“展开功能区”
在打开的Excel表格中,如果是上方的工具栏没有,可以在上方按右键(就是写着开始、插入的那一行),选 择自定义快速访问工具栏,就打开了,Excel选 项。
可以在里面设置。
如果是下方的,可以在下方(就是写着就绪的那一行),按右键,选择相应的选项。