如何让它消失，只留下自定义的菜单呢？

用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就是“菜单栏”。

(责任编辑：admin)

• ·解决没有保存属性在关闭窗体时
• ·Access加快窗体显示【技巧】
• ·access vba代码太长，换行的方法解释
• ·Access2010错误＂该表是“一对多”关系
• ·vba设置子窗体字体格式的方法
• ·Access如何提高程序的显示速度
• ·两种计价方式集成实例
• ·[源码]用代码添加和删除主键
• ·[示例]到期天数计算
• ·一个简单的透视图实例
• ·Access不编程生成菜单，自定义菜单如何
• ·让命令按钮全变为不可用
• ·VBA编程自动导出生成Excel表
• ·如何统计某一行某几个字段的个数？
• ·如何替换Access启动时的背景图片
• ·如何禁止Access自动保存