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

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