excel表格下面没有了怎么办

发布网友 发布时间：2022-04-20 11:39

我来回答

共1个回答

热心网友 时间：2023-09-12 21:27

菜单栏位置,右键-----自定义------命令-------内置菜单--------命令栏
选中所需拉上菜单栏ok。
打开一个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中就可以看到工具栏等都又出现了。