[Excel VBA]关掉 Excel Menu Bar 的方法

Excel 是一个相当好用的工具,提供了相当多的内建函数与巨集可以让我们做出相当漂亮与丰富的报表。

但对于习惯写程式或者是需要使用 Excel 来当作程式主体的人来说,这些 Menu Bar 可以说是扰乱程式的元兇。

所以本篇就要介绍,如何关掉 Excel 的 Menu Bar,让 Excel 看起来乾乾净净。
其实只有一个指令,

Application.CommandBars("Worksheet Menu Bar").Enabled=False

这个指令是将主 Menu 关掉的意思,其他的像 ToolBar 等都还会存在。

如果您只想要关掉某些功能呢?

首先您要知道那些功能的名称是什么,怎么知道呢? Google? 可能找到的都是片段,可以透过一段程式将所有的 Menu Bar 名称 Show 出来,如下面这一小段程式码

Dim oBar as CommandBarFor Each oBar in Application.CommandBars  Debug.Print oBar.NameNext

这样就可以知道有哪些 Menu Bar 存在于 Excel 中,所以将这些名称透过 Application.CommandBars 的指令,一一把它关掉即可。

您必须在一开启 Workbook 时就去下这一段的指令(在 ThisWorkBook当中),如:

Private Sub Workbook_Open()  Application.CommandBars("Worksheet Menu Bar").Enabled=FalseEnd Sub

将上述的动作写成了一个 VB Module,提供开关的方式供邦友参考。有些功能表的名称需要对照(或Google)一下,或是测试一下关掉的是哪一个部份。也欢迎邦友修正后再分享出来。

原始码:mdlMenu.bas

今天 Google 时,发现了一篇很详尽的文章
http://www.rondebruin.nl/menuid.htm


关于作者: 网站小编

码农网专注IT技术教程资源分享平台,学习资源下载网站,58码农网包含计算机技术、网站程序源码下载、编程技术论坛、互联网资源下载等产品服务,提供原创、优质、完整内容的专业码农交流分享平台。

热门文章