シート上でのダブルクリックと右クリックを無効にするには、イベントプロシージャに次のステートメントを記述します。
<ダブルクリック無効>
Private Sub Worksheet_BeforeDoubleClick _
(ByVal Target As Range, Cancel As Boolean)
Cancel = True
End Sub
<右クリック無効>
Private Sub Worksheet_BeforeRightClick _
(ByVal Target As Range, Cancel As Boolean)
Cancel = True
End Sub