我正在尝试输入一些隐藏“设计视图”的代码作为我们内部应用程序的选项,除非满足特定的权限要求。
以下代码适用于一个例外:
On Error Resume Next
If Not GetUserInfo("ADMIN_PERMIS") = 1 Then
Dim cb As CommandBar
Dim cbCtl As CommandBarControl
For Each cb In CommandBars
If cb.type = msoBarTypePopup Then
For Each cbCtl In cb.Controls
If cbCtl.Caption = "&Design View" Then
cbCtl.enabled = True
cbCtl.visible = False
Else
cbCtl.visible = True
End If
Next
End If
Next
Set cb = Nothing: Set cbCtl = Nothing
End If
这样做的一个问题是它不仅对当前数据库禁用设计视图,而且对启动的任何其他访问数据库禁用设计视图。我正在寻找一种方法来尝试应用此代码,使其仅影响我拥有代码的 Access 数据库,而不影响它的每个实例。