体验零代码搭建

excel表中菜单栏工具栏都没了怎么办?

网友投稿  ·  2024-01-11 11:01  ·  云表格  ·  阅读 328


打开一个excel文件,按ALT+F11,然后在打开的窗口中点击插入——模块把下面的字体复制到对话框中:

打开一个excel文件,按ALT+F11,然后在打开的窗口中点击插入——模块把下面的字体复制到对话框中:

excel表中菜单栏工具栏都没了怎么办?

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


数字化运营平台的选择与应用 << 上一篇
2024-01-11 11:01
数据仓库数据模型的详细讲解
2024-01-11 11:01
下一篇 >>

相关推荐