能不能将工具栏中的菜单栏也隐藏掉

4848

系统的工具栏中有一个菜单栏,能否不让它显示.因为我想打开系统时只显示自定义工具栏.

Henry D. Sy

启动里设置
自定义菜单代替系统菜单

4848

试了一下,自定义工具栏是显示了出来,但系统的菜单栏也显示出来.

4848

我点菜单右键-自定义后将菜单栏中系统默认的所有项目全部用鼠标拖掉后现在无法恢复,点重置菜单也不能,不知是不是只能重装OFFICE?

tmtony

恢复默认菜单和工具栏的办法

引用 Microsoft Office 9.0 Object Library
执行如下过程：

Public Sub EnableDefaultMenu()
    Dim oBar As CommandBar
         
    Set oBar = CommandBars("Menu Bar")
    oBar.Reset
End Sub

恢复默认菜单和工具栏，搞定！
注：Menu Bar是指ACCESS的主菜单


用这个也可以
Public Sub EnableDefaultMenu()
    Dim oBar As CommandBar
         
    Set oBar = CommandBars("Menu Bar")
    oBar.Reset
End Sub

4848

谢谢指教!

小黑哥

学习