投稿
  1. excel,word,ppt使用教程网首页
  2. Word Excel PPT教程

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

Word Excel PPT爱好者 • • Word Excel PPT教程 • 阅读 36

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

版权声明：本文内容由互联网用户自发贡献，该文观点仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容， 请发送邮件至 2305938578@qq.com 举报，一经查实，本站将立刻删除。本文网址：https://www.excelwordppt.com/word-excel-ppt/26042.html

赞 (0)
Word Excel PPT爱好者Word Excel PPT爱好者
0 0
上一篇 2024年6月17日 pm1:07
下一篇 2024年6月17日 pm1:30

相关推荐

发表回复

登录后才能评论