Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


54781 / 76738 ←次へ | 前へ→

【26743】Re:右クリックメニューについて
回答  りん E-MAIL  - 05/7/15(金) 17:48 -

引用なし
パスワード
   HITSUJI さん、こんにちわ。

>あるシートを開いた時は、
>右クリックで表示されるメニュー(コピーや貼付け、切り取りなど)の
>表示をイネーブルにしたいのですが、できるのでしょうか?
>いろいろ調べたのですが、下記で間違っているでしょうか?

>Private Sub Workbook_Activate()
>  Application.CommandBars("Standard").Enabled = False
   Application.CommandBars("Cell").Enabled = False
>End Sub
です。

>(カッコ)内はシートの名前を指定するのでしょうか?
カッコ内はコマンドバーの名前を指定します。
ただし、Cellというバーは2つある(表示が標準/改ページプレビュー)ので、注意が必要です。

そのブックの中で、右クリックメニューを出したくないだけなら、

Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
  Cancel = True
  MsgBox "出た?"
End Sub

のほうが簡単です。

0 hits

【26742】右クリックメニューについて HITSUJI 05/7/15(金) 17:28 質問
【26743】Re:右クリックメニューについて りん 05/7/15(金) 17:48 回答
【26811】Re:右クリックメニューについて HITSUJI 05/7/19(火) 11:07 お礼

54781 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free