方法一:
    Microsoft Office 的命令欄對象
    Microsoft Office 的命令欄對象，對應(yīng)于菜單和工具欄。
    在OFFICE家族中，所有菜單和工具欄的對象模型都作為CommandBars命令欄對象被保存在共享的Microsoft Office 9.0 Object Library對象中
    '恢復(fù)默認(rèn)菜單和工具欄，搞定！
    '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