ここから本文です

Microsoft Access 右クリック(既定のショートカットメニュー)を非表示にするVBA ...

hib********さん

2017/9/2915:33:27

Microsoft Access 右クリック(既定のショートカットメニュー)を非表示にするVBA

オプションにて「既定のショートカットメニュー」のチェックボックスをオフにすれば、右クリックしても何

も表示されませんが、ユーザー別に設定したい為、VBAではどのようなコードを組めばいいのか知りたい次第です。
ユーザー別の設定はIFなどで場合分けしたいと思いますので、右クリックの機能をオフにする構文を教えて頂けますでしょうか。

また、右クリックで「閉じる」「すべて閉じる」だけを選択できるようにすることはできるのでしょうか。こちらも方法があれば教えてください。

閲覧数:
519
回答数:
1
お礼:
50枚

違反報告

ベストアンサーに選ばれた回答

プロフィール画像

カテゴリマスター

ony********さん

2017/9/2917:52:59

>オプションにて「既定のショートカットメニュー」のチェックボックスをオフ

これで行けると思います。

■動時の設定をVBAで行う : Access(アクセス)
https://www.feedsoft.net/access/tips/tips166.html




>右クリックで「閉じる」「すべて閉じる」だけを選択

これに近いのかと思いますが、やったことがありません。

■マクロを使用してカスタム メニューおよびショートカット メニューを作成する
https://support.office.com/ja-jp/article/%E3%83%9E%E3%82%AF%E3%83%A...

  • 質問者

    hib********さん

    2017/10/214:28:26

    回答ありがとうございました。下記のようなコードをAutoExcecマクロに組んでいるのですが、うまくいきませんでした。最後のCurrentDb.Properties("AllowShortcutMenus") = False
    というところが実行されません。

    Private Sub cmdLogIn_Click()

    'txtIDというテキストボックスに入力した値と、T_ID_pssというテーブルのIDというフィールドで一致するレコードを検索し、当該レコードの権限というフィールドの値を「役職」と呼んでいます。
    役職 = DLookup("権限", "T_ID_pass", "ID='" & Me.txtID & "'")


    '役職が管理者の場合
    If 役職 = "管理者" Then

    'ナビゲーションウインドウを非表示にする
    DoCmd.SelectObject acForm, "", True


    '右クリックメニューを非表示にする
    CurrentDb.Properties("AllowShortcutMenus") = False

    End If

    End Sub

  • その他の返信(1件)を表示

返信を取り消しますが
よろしいですか?

  • 取り消す
  • キャンセル

質問した人からのコメント

2017/10/2 16:29:26

ご回答ありがとうございました。教えて頂きました方法でできました。しかしながら、Accessをその都度再起動しなくてはできないため(2回ログインしなくてはならない)、本方法はやめることにしました。別質問でさせていただきましたナビゲーションウインドウの表示では、Accessの再起動をせずとも設定が反映できたのですが・・・おそらくVBAコードの違いなのだと思います。ありがとうございました。

みんなで作る知恵袋 悩みや疑問、なんでも気軽にきいちゃおう!

Q&Aをキーワードで検索:

Yahoo! JAPANは、回答に記載された内容の信ぴょう性、正確性を保証しておりません。
お客様自身の責任と判断で、ご利用ください。
本文はここまでです このページの先頭へ

「追加する」ボタンを押してください。

閉じる

※知恵コレクションに追加された質問は選択されたID/ニックネームのMy知恵袋で確認できます。

不適切な投稿でないことを報告しました。

閉じる