マクロ（メニュー選択できないような）を教えてください。

エクセル2003や2007でセル上で右クリックしたときに、
表示されるインスタントメニューで、切り取り(Ｔ)　をグレー表示にして選択できないようなマクロを次のようにしてあります。
同様に、コピー（Ｃ）、貼り付け（Ｐ）、形式を選択して貼り付け（Ｓ）もグレー表示にして選択できないようにしたいと思います。
マクロ記述を教えてください。よろしくお願いします。

Sub MenuOff()
Dim CBar
Set CBar = Application.CommandBars("Cell").Controls
With CBar
For i = 1 To .Count
If (.Item(i).Caption Like "切り取り*") Then
.Item(i).Enabled = False
Exit For
End If
Next i
End With
End Sub

No.2 ベストアンサー 回答者： noname#130090 回答日時： 2010/01/27 08:43

ごめんなさい寝ぼけていて「形式を選択して貼り付け」を忘れていました。

あと、Exit For は それほど必要性を感じなかったのではずしました。

Sub MenuOff()
　　Dim CBar
　　Set CBar = Application.CommandBars("Cell").Controls
　　With CBar
　　　　For i = 1 To .Count
　　　　　　If (.Item(i).Caption Like "切り取り*") Then
　　　　　　　　.Item(i).Enabled = False
　　　　　　ElseIf (.Item(i).Caption Like "コピー*") Then
　　　　　　　　.Item(i).Enabled = False
　　　　　　ElseIf (.Item(i).Caption Like "貼り付け*") Then
　　　　　　　　.Item(i).Enabled = False
　　　　　　ElseIf (.Item(i).Caption Like "形式を選択して貼り付け*") Then
　　　　　　　　.Item(i).Enabled = False
　　　　　　End If
　　　　Next i
　　End With
End Sub

この回答へのお礼

ありがとうございました。どうも2007では右クリックメニューは、ＶＢＡでカスタマイズできないようです。

お礼日時：2010/01/27 10:28

No.3 回答者： Wendy02 回答日時： 2010/01/27 09:17

こんにちは。

すでに回答がついていますが、広範囲のメニューを探す場合には、ループが必要ですが、ひとつのメニューでは、IDで、プロパティを変えていけばよいと思います。

'-------------------------------------------
'標準モジュールが良い
Sub Main()
　　ControlAvailable False　'戻す時は、True を指定
End Sub

Sub ControlAvailable(flg As Boolean)
　With Application.CommandBars("Cell")
　　 .FindControl(, 19).Enabled = flg 'コピー
　　 .FindControl(, 21).Enabled = flg　'切り取り
　　 .FindControl(, 22).Enabled = flg　'貼付け
　　 .FindControl(, 755).Enabled = flg　'形式を選択－貼付け
　End With
End Sub
'----------------------------------------

この回答へのお礼

ありがとうございました。どうも2007では右クリックメニューは、ＶＢＡでカスタマイズできないようです。

お礼日時：2010/01/27 10:28

No.1 回答者： noname#130090 回答日時： 2010/01/27 07:16

こんなもんでどうでしょうか？

Sub MenuOff()
　　Dim CBar
　　Set CBar = Application.CommandBars("Cell").Controls
　　With CBar
　　　　For i = 1 To .Count
　　　　　　If (.Item(i).Caption Like "切り取り*") Then
　　　　　　　　.Item(i).Enabled = False
　　　　　　ElseIf (.Item(i).Caption Like "コピー*") Then
　　　　　　　　.Item(i).Enabled = False
　　　　　　ElseIf (.Item(i).Caption Like "貼り付け*") Then
　　　　　　　　.Item(i).Enabled = False
　　　　　　　　Exit For
　　　　　　End If
　　　　Next i
　　End With
End Sub