Excel VBA質問箱 IV

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

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


3504 / 13645 ツリー ←次へ | 前へ→

【61784】commandbars("cell") 亜矢 09/6/4(木) 7:24 質問[未読]
【61785】Re:commandbars("cell") もも 09/6/4(木) 9:33 発言[未読]
【61786】Re:commandbars("cell") 亜矢 09/6/4(木) 9:49 質問[未読]
【61787】Re:commandbars("cell") もも 09/6/4(木) 10:43 発言[未読]
【61790】Re:commandbars("cell") ひつまぶし 09/6/4(木) 13:42 回答[未読]
【61794】Re:commandbars("cell") 亜矢 09/6/4(木) 18:12 お礼[未読]

【61784】commandbars("cell")
質問  亜矢  - 09/6/4(木) 7:24 -

引用なし
パスワード
   よろしくお願いします。あまりよく理解していなのにcommandbars("cell")
をdeleteしていまいました。その結果セル上で右クリックしても
メニューがでなくなってしまいました。
 目的は右クリックしてもメニューがでないようにすることでしたが、
 他のブックでもその現象が起きてしまいました。
 指定したブックだけ右クリックしてもメニューがでないようにしたいのが
 目的でした。 
 エクセル2007を再インストールしても同じ結果でした。
元に戻す方法を教えて頂きたいと思います。

【61785】Re:commandbars("cell")
発言  もも  - 09/6/4(木) 9:33 -

引用なし
パスワード
   ▼亜矢 さん:
こんにちは

とりあえず元に戻すだけなら

Application.CommandBars("Cell").Reset

で治りませんか?

【61786】Re:commandbars("cell")
質問  亜矢  - 09/6/4(木) 9:49 -

引用なし
パスワード
   ▼もも さん:
>▼亜矢 さん:
>こんにちは
>
>とりあえず元に戻すだけなら
>
>Application.CommandBars("Cell").Reset
>
>で治りませんか?
ももさんありがとうございました。解決しました。ついでの質問でもうし
わけありませんが、これでCommandBars("cell")を消してもとに戻すことができましたが、PopUpメニュは上部にセルの書式関係のメニューがでますが、これを
消す方法を教えていただけませんでしょうか。下側メニュの切り取りからハイパーリンクは教えて頂いた方法で、消して元に戻すことが出来ます。
よろしくお願いします。

【61787】Re:commandbars("cell")
発言  もも  - 09/6/4(木) 10:43 -

引用なし
パスワード
   ▼亜矢 さん:
>▼もも さん:
>>▼亜矢 さん:
>>こんにちは
>>
>>とりあえず元に戻すだけなら
>>
>>Application.CommandBars("Cell").Reset
>>
>>で治りませんか?
>ももさんありがとうございました。解決しました。ついでの質問でもうし
>わけありませんが、これでCommandBars("cell")を消してもとに戻すことができましたが、PopUpメニュは上部にセルの書式関係のメニューがでますが、これを
>消す方法を教えていただけませんでしょうか。下側メニュの切り取りからハイパーリンクは教えて頂いた方法で、消して元に戻すことが出来ます。
>よろしくお願いします。

治ってよかったです^^
追加の質問は・・・
すみませんが私の手元に2007の環境が無いので
確かな事を言えるだけのテストが出来ませんので
他の方の回答をお待ちください。

【61790】Re:commandbars("cell")
回答  ひつまぶし  - 09/6/4(木) 13:42 -

引用なし
パスワード
   ▼亜矢 さん:
>よろしくお願いします。あまりよく理解していなのに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イベントを捉えるようにすればいいです。

勘違いならすみません。

【61794】Re:commandbars("cell")
お礼  亜矢  - 09/6/4(木) 18:12 -

引用なし
パスワード
   ▼ひつまぶし さん:
>▼亜矢 さん:
>>よろしくお願いします。あまりよく理解していなのに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イベントを捉えるようにすればいいです。
>
>勘違いならすみません。
上記に様に実行しました。
完全解決です。御世話になりました。感謝感激

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