在“工具”---“启动”里打完所有的勾,程序启动之后还是会留下一个主菜单:
如何让它消失,只留下自定义的菜单呢?
用CommandBars集合!下面的这段程序就可以达到这个目的: Dim cbar For Each cbar In CommandBars If cbar.Name = "Menu Bar" Then cbar.enabled=false End If Next 看到这里,你一定会问:我怎么知道菜单栏的名字就是"Menu Bar"?或是我想用代码隐藏别的工具栏又怎么知道它的名字? 运行一下下面这段程序,将会在立即窗口看到所有被设置显示的菜单及工具栏的名称、当前语言描述及显示与否的状态。 Dim cbar For Each cbar In CommandBars If cbar.Visible = True Then Debug.Print cbar.Name, cbar.NameLocal, cbar.Visible End If Next 其中Name就是程序中要引用的名称,NameLocal就是用当前版本的语言来描述的名称,如果你用的是简体版本,就用简体版本的名称描述出来,比如"Menu Bar",它的NameLocal就是“菜单栏”。
|