Excel VBA質問箱 IV

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

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


12578 / 13646 ツリー ←次へ | 前へ→

【9758】既存メニューバーの操作 テーブル 03/12/16(火) 14:37 質問
【9763】Re:既存メニューバーの操作 INA 03/12/16(火) 15:18 回答
【9784】Re:既存メニューバーの操作 テーブル 03/12/16(火) 18:00 お礼
【9794】Re:既存メニューバーの操作 Jaka 03/12/17(水) 9:18 回答
【9796】Re:既存メニューバーの操作 Jaka 03/12/17(水) 9:46 回答
【9827】Re:既存メニューバーの操作 テーブル 03/12/17(水) 20:00 お礼
【9826】Re:既存メニューバーの操作 テーブル 03/12/17(水) 19:58 お礼

【9758】既存メニューバーの操作
質問  テーブル  - 03/12/16(火) 14:37 -

引用なし
パスワード
   既存のメニューバーの「名前を付けて保存」を、EXCEL立ち上げ時に消して、
EXCEL終了時に元に戻すようにしようと思っているのですが、

消し方の際に、下記のコードで、消そうと考えているのですが、
他に、既存のメニューバーを使えなくさせる書き方ってありますでしょうか?
どうかご教授よろしくお願いたします。
Application.CommandBars("File").Controls(5).Delete

【9763】Re:既存メニューバーの操作
回答  INA  - 03/12/16(火) 15:18 -

引用なし
パスワード
   >他に、既存のメニューバーを使えなくさせる書き方ってありますでしょうか?
> Application.CommandBars("File").Controls(5).Delete

そのコードで何か問題があるのでしょうか?

MenuBars(xlWorksheet).Menus(1).MenuItems("名前を付けて保存(&A)...").Delete

【9784】Re:既存メニューバーの操作
お礼  テーブル  - 03/12/16(火) 18:00 -

引用なし
パスワード
   ▼INA さん:
>>他に、既存のメニューバーを使えなくさせる書き方ってありますでしょうか?
>> Application.CommandBars("File").Controls(5).Delete
>
>そのコードで何か問題があるのでしょうか?

特に問題は無いのですが,Controls(5)の所で、もし設定で何か加えられていたとしたら、順番がわからなくなってしまうと思ったので・・・・
しかし、INAさんに教えて頂いたコードで解決いたしました。
いつもありがとうございます!

【9794】Re:既存メニューバーの操作
回答  Jaka  - 03/12/17(水) 9:18 -

引用なし
パスワード
   こういうの?
↓や削除にしてもユーザー設定で独自に作られる事を考えると意味無しですけど...。

Application.CommandBars("File").Controls(5).Enabled = False

【9796】Re:既存メニューバーの操作
回答  Jaka  - 03/12/17(水) 9:46 -

引用なし
パスワード
   もしかしてこっちでした?
On Error Resume Next '←念の為入れる。
Application.CommandBars("File").Controls("名前を付けて保存(&A)...").Enabled = False

メニュー名は、これで調べてね
Range("A1").Value = Application.CommandBars("File").Controls(5).Caption

【9826】Re:既存メニューバーの操作
お礼  テーブル  - 03/12/17(水) 19:58 -

引用なし
パスワード
   ▼Jaka さん:
>こういうの?
>↓や削除にしてもユーザー設定で独自に作られる事を考えると意味無しですけど...。

そうですよね・・・・・ そこまで、規制をかけちゃうと、自分が使ってる他のEXCELに影響受けちゃうと怖いですね。右クリックが使えなくなるとか・・・・・ 私はこれに、一回かかりました汗

【9827】Re:既存メニューバーの操作
お礼  テーブル  - 03/12/17(水) 20:00 -

引用なし
パスワード
   ▼Jaka さん:
>もしかしてこっちでした?
>On Error Resume Next '←念の為入れる。
>Application.CommandBars("File").Controls("名前を付けて保存(&A)...").Enabled = False
こっち側でした〜^^ 私が使う分だけなので、これで良いのですが、つい忘れて、メニュー追加しちゃったら、エラーでちゃうなと思いまして^^; どうもありがとうございました。


>メニュー名は、これで調べてね
>Range("A1").Value = Application.CommandBars("File").Controls(5).Caption

メニュー名の調べ方参考になりました。これで・・・・ほとんどのツールバーを使えなくして、ガチガチに安全?? にマクロを使用してみようかと思います汗

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