Excel VBA質問箱 IV

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

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


9538 / 13644 ツリー ←次へ | 前へ→

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

【26742】右クリックメニューについて
質問  HITSUJI  - 05/7/15(金) 17:28 -

引用なし
パスワード
   こんにちは。

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

Private Sub Workbook_Activate()
  Application.CommandBars("Standard").Enabled = False
End Sub

(カッコ)内はシートの名前を指定するのでしょうか?

【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

のほうが簡単です。

【26811】Re:右クリックメニューについて
お礼  HITSUJI  - 05/7/19(火) 11:07 -

引用なし
パスワード
   ▼りん さんへ

お返事遅くなりすみませんm(__)m!
教えていただいたとおりで、出来ました!!
有り難うございました(*^^*)♪

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