朱亦文的方法:
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
|