|
▼亜矢 さん:
>よろしくお願いします。あまりよく理解していなのにcommandbars("cell")
>をdeleteしていまいました。その結果セル上で右クリックしても
>メニューがでなくなってしまいました。
> 目的は右クリックしてもメニューがでないようにすることでしたが、
> 他のブックでもその現象が起きてしまいました。
> 指定したブックだけ右クリックしてもメニューがでないようにしたいのが
> 目的でした。
ニーズを的確に捉えてないかもしれませんが、
自ブックのシート上での右クリックでは、
コンテキストメニューを全く出さないようにしたいってことでしょうか?
カスタマイズしたメニューを出したいってことならまだしも、
単に出さなくするだけなら、既定のポップアップメニューを削除したり、
リセットするなんてことはせず、
自ブックのSheetBeforeRightClickイベントプロシージャで、
Cancelすればいいだけだと思います。
(Thisworkbookモジュール)
Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, _
ByVal Target As Range, _
Cancel As Boolean)
'列が選択されている時を除くなら
If Target.Rows.Count = Sh.Rows.Count Then Exit Sub
'行が選択されている時を除くなら
If Target.Columns.Count = Sh.Columns.Count Then Exit Sub
Cancel = True
End Sub
もし、指定したブックと言っているのが自ブックでないなら、
指定したブックのSheetBeforeRightClickイベントを捉えるようにすればいいです。
勘違いならすみません。
|
|