Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
11283 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【16920】全てのEXCELにVBAが働く？ Takashi 04/8/16(月) 14:26 質問[未読]
【16922】Re:全てのEXCELにVBAが働く？ IROC 04/8/16(月) 14:31 回答[未読]
【16923】Re:全てのEXCELにVBAが働く？ Takashi 04/8/16(月) 14:44 発言[未読]
【16924】Re:全てのEXCELにVBAが働く？ IROC 04/8/16(月) 15:14 回答[未読]
【16925】Re:全てのEXCELにVBAが働く？ Takashi 04/8/16(月) 15:55 お礼[未読]
【16926】Re:全てのEXCELにVBAが働く？ IROC 04/8/16(月) 16:12 回答[未読]
【16953】Re:全てのEXCELにVBAが働く？ Takashi 04/8/17(火) 10:55 お礼[未読]
【16920】全てのEXCELにVBAが働く？
質問  Takashi  - 04/8/16(月) 14:26 -
引用なし
パスワード
   初心者です。試行錯誤でWorkbook_SheetBeforeRightClickを使って右クリックのメニューを出さないようにしました。そしてworkbook_beforecloseで解除するようにしました。このEXCELはうまく作動するのですが、全く違うEXCELを起動しても、右クリックでメニューが出なくなりました。パソコンを立ち上げ直しても同じです。始めてのこVBAでいろいろさわりましたので、自分でも何をしたかわかりません。考えられることをお教えください。
【16922】Re:全てのEXCELにVBAが働く？
回答  IROC  - 04/8/16(月) 14:31 -
引用なし
パスワード
   どのようなマクロを使ったかコードを掲載してみては如何でしょうか？


Application.CommandBars("Cell").Enabled = False
したとか・・？
【16923】Re:全てのEXCELにVBAが働く？
発言  Takashi  - 04/8/16(月) 14:44 -
引用なし
パスワード
   ▼IROC さん：
>どのようなマクロを使ったかコードを掲載してみては如何でしょうか？
>
>
>Application.CommandBars("Cell").Enabled = False
>したとか・・？

ご指摘のとおりです。
ベテランの方から見るとメチャクチャかもしれませんが・・・

Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Application.CommandBars("Cell").Enabled = False　　
　　
　　Range(Selection.Address).Copy
　　
　　intMoto = Worksheets(ActiveSheet.Name).Index
　　　　　　　
　　 Worksheets(1).Activate

　　 ActiveCell.PasteSpecial Paste:=xlPasteValues　　
　
　　
　　Application.CutCopyMode = False

End Sub
解除は
Private Sub workbook_beforeclose(Cancel As Boolean)
　　Application.CommandBars("Cell").Enabled = True
　　　　
End Sub
右クリックでsheet1の選択セルにコピーするものです
【16924】Re:全てのEXCELにVBAが働く？
回答  IROC  - 04/8/16(月) 15:14 -
引用なし
パスワード
   Application.CommandBars("Cell").Enabled = TRUE
で、元に戻らないのが問題なのですよね？
だとすると、Excelの再インストールするのが良さそうに思えますが・・


ちなみにマクロの内容ですが、
シートのActivateイベント で
Application.CommandBars("Cell").Enabled = False　　

シートのDeactivateイベント と
ブックのWorkbook_Deactivateイベントで
Application.CommandBars("Cell").Enabled = true
しては如何でしょう？
【16925】Re:全てのEXCELにVBAが働く？
お礼  Takashi  - 04/8/16(月) 15:55 -
引用なし
パスワード
   ▼IROC さん：
>Application.CommandBars("Cell").Enabled = TRUE
>で、元に戻らないのが問題なのですよね？
>だとすると、Excelの再インストールするのが良さそうに思えますが・・
>
>
>ちなみにマクロの内容ですが、
--- 省略させて頂ます　---

このマクロの中ではうまく戻ります。ですが他のEXCELを開くと右クリックが正常に働かないのです。EXCELの再インストールも試みました同じでした。
マクロの内容については、明日試してみます

色々と有難う御座います
【16926】Re:全てのEXCELにVBAが働く？
回答  IROC  - 04/8/16(月) 16:12 -
引用なし
パスワード
   >ですが他のEXCELを開くと右クリックが正常に働かないのです。E

Excel を２重起動しているということでしょうか？

いずれにしてもExcelへの設定なので、
解除しない限り、表示されませんよ。

なので、他のブックへ移るときなどに
できるかぎりイベントで解除した方がよいでしょう。
【16953】Re:全てのEXCELにVBAが働く？
お礼  Takashi  - 04/8/17(火) 10:55 -
引用なし
パスワード
   いろいろお世話になりました。
マイクロソフトで質問しましたところ、やはりEXCELの一部が壊れていました。
EXCELのツールバーやショートカットメニューのファイルが壊れたようです。
これは再インスツールでは、直らないそうです。
検索で　”*.xlb”で探して、削除すれば、次回EXCEL立ち上げ時に新たに作成されるそうです。
また一つ勉強になりました。
本当に有難うございました。
また安心して、VBAの勉強を続けます。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
11283 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free