スキルアップ・問題解決なら、モーグにおまかせ！

●概要●
ブックに含まれるシートすべてで右クリックを禁止したい場合には、ブックモジュールの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