【源码】恢复默认菜单和工具栏的办法

tmtony

恢复默认菜单和工具栏的办法，有网友问到整个Access的菜单和工具栏都是灰色，变灰或禁用，无法使用，打开所有MDB都是这样，以前写过解决办法，再贴一下。希望可帮到大家：

重置菜单和工具栏到默认状态
引用 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

其它版主的方法：

道高一尺，魔高一丈，看一看微软的重置个性化菜单的另一方法(部分摘录和翻译）：

◎◎◎  将程序的 PIP 文件重命名 ◎◎◎


1.右键单击 Windows『开始』并选中『资源管理器』.

2.根据你的操作系统浏览下面的文件夹.

※ Microsoft Windows 2000 or Microsoft Windows XP :
C:\Documents and Settings\ username \Application Data\Microsoft\Office

※ Microsoft Windows 98 or Microsoft Windows Millennium Edition (Me) :
C:\WINDOWS\Application Data\Microsoft\Office

※ Microsoft Windows 98, Microsoft Windows Me with profiles enabled, or Microsoft Windows NT 4.0 :
C:\WINDOWS\Profiles\ username \Application Data\Microsoft\Office

3.右键单击你想要重置菜单程序的 PIP 文件（如 Access10.PIP）, 选中『重命名』.

4.将 PIP 文件重命名为诸如 程序名称.old （如Access10.old）之类的名称.

5.Ok，搞掂 ！！  （本人对此句保留版权  :=)  ）


注意：不推荐修改下面目录下的 PIP 文件（可能导致错误哦）：
※ Office XP
C:\Program Files\Microsoft Office\Office10
※ Office 2000
C:\Program Files\Microsoft Office\Office


使用前请先备份注册表