方法一:

　　Microsoft Office 的命令栏对象

　　Microsoft Office 的命令栏对象，对应于菜单和工具栏。

　　在OFFICE家族中，所有菜单和工具栏的对象模型都作为CommandBars命令栏对象被保存在共享的Microsoft Office 9.0 Object Library对象中

　　'恢复默认菜单和工具栏，搞定!

　　'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()

　　On Error Resume Next

　　Dim obar As CommandBar

　　For Each obar In Application.CommandBars

　　obar.Reset

　　Next

　　End Sub