方法一:
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
责任编辑：小草
