3

特定の権限要件が満たされない限り、内部アプリケーションのオプションとして「デザイン ビュー」を非表示にするコードを入力しようとしています。

次のコードは、1 つの例外を除いて機能します。

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

これに関する 1 つの問題は、現在のデータベースだけでなく、起動されている他のすべてのアクセス データベースのデザイン ビューが無効になることです。このコードを試して適用する方法を探しています。これは、コードが含まれている Access データベースにのみ影響し、そのすべてのインスタンスには影響しません。

4

2 に答える 2

0

これらの答えはすべて素晴らしいです。最も単純な方法に興味がある場合は、奇妙な場所ではありますが、フォームが鍵を握っていることに気付きました。

フォームのプロパティで->その他のタブ->ショートカット メニュー =いいえ

于 2015-06-13T17:04:19.257 に答える