セルでの右クリックを制御するには、Worksheet_BeforeRightClickイベントで宣言されている「(ByVal Target As Range, Cancel As Boolean)」を利用します。
Targetはイベントが発生した時のセルで、Cancelは既存の右クリックメニューが表示されるのを中止します。
シートモジュールに以下の様に入力します。
'右クリックを全て無効にする
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
End Sub
'A1のセル場合のみ右クリックを無効にする
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$A$1" Then
Cancel = True
End If
End Sub