シートのダブルクリックイベントの処理後にセルの編集に入らない方法

【目的】
VBAでシートにダブルクリックイベントの処理後にセルの編集に入らないようにします。



【手順１】
１．イベントを設定したいシートをプロジェクトから選択(ダブルクリック)。
２．コードを以下の様に記載。

Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Cancel = True
    MsgBox ("『" & Target.Address & "』でダブルクリックされました。" & vbCrLf & "セルの入力に入りません。")
End Sub

【手順２】
１．シート上でダブルクリック。

【手順３】
１．以下のメッセージが表示されます。

【手順４】
１．シート上でダブルクリックしますが、セルの編集がキャンセルされます。

以上です。