即効テクニック |
●概要● ブックに含まれるシートすべてで右クリックを禁止したい場合には、ブックモジュールのSheetBeforeRightClickイベントを利用します。 構文 SheetBeforeRightClick(ByVal Target As Range, Cancel As Boolean) 設定項目 内容 Cancel キャンセル時にTrueを設定 次のサンプルは、ブックに含まれるシート上で、右クリックをした際に、メッセージを表示して、右クリックの処理をキャンセルします。 ●サンプル● Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object _ , ByVal Target As Range, Cancel As Boolean) MsgBox "右クリック禁止!!", vbExclamation Cancel = True End Sub