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