ACCESS2007怎样隐藏快速访问工具栏和“开始”功能区

zhouspark　发表于：2010-06-22 15:48:02 　

我想在对文件封装、投入使用前，在文件打开时把ACCESS2007的快速访问工具栏和“开始”功能区屏蔽掉。

我观察过做到这种效果的实例，不过是2003的mdb文件，在启动选项那里比2007多出“菜单栏”和“允许内置工具栏”选项。我学着用VBA通过“AllowBuiltInToolBars”属性取消“允许内置工具栏”一值，这时2007屏蔽了除“开始”以外的功能区，快速访问工具栏也未消失。我分析2003的例子，发现只要把“菜单栏”选择为默认以外的值，就能达到效果。但不知道怎样去建立菜单和改变选项值。后来在帮助里查到CommandBars，通过代码

For Each cbar In CommandBars
MsgBox cbar.Name & " " & cbar.NameLocal & " " & cbar.Visible
Next

发现第二个提示框显示：Menu Bar 菜单栏 TRIUE

于是我想通过把 Menu Bar 的 Visible 属性把菜单栏屏蔽，但试过几个方法都提示错误。

如：

For Each cbar In CommandBars
    If cbar.Name = "Menu Bar" Then
      cbar.Visible = False
    End If
Next

CommandBars("Menu Bar").Visible = False

提示：方法'Visible'作用于对象'CommandBar'时失败。

请高手提出解决方案。

点击下载此附件