• ベストアンサー

エクセルのメニューバーの非表示方法は?

ユーザー設定でワークシートメニューバーのチェックを外すとその時だけは消えますが、ユーザー設定のウィンドウを閉じると元どおり表示されてしまいます。 またマクロで Application.CommandBars("Worksheet Menu Bar").Visible = False とやるとエラーになってしまいます。 どうすれば消せるのでしょうか?

  • moooon
  • お礼率70% (118/167)

質問者が選んだベストアンサー

  • ベストアンサー
回答No.1

初めまして。 For Each myCB In Application.CommandBars myCB.Enabled = False Next myCB このコードを実行すると表示されているすべてのツールバー。メニュバーが非表示になります。 お試しになってみて下さい。

moooon
質問者

お礼

さっそくありがとうございます。 試してみたところ、エクセル97と2000では完璧でした。 ただ、エクセル95でやると、エラーになります。 どうすればいいのでしょうか?

その他の回答 (1)

回答No.2

おはようございます。エクセル95は使ったことがないので、私にはどのようにしたらいいのかわかりません。あしからずご了承下さい。

moooon
質問者

お礼

おせわになりありがとうございました。 97-2000では完璧でしたので今度は95限定であらたに質問してみようと思います。

関連するQ&A

  • メニューバーを非表示に 2007

    エクセル2007です。 Application.CommandBars("Worksheet Menu Bar").Enabled = False をしてもメニューバーが非表示になりません。 画像の部分を非表示にしたいです。 そもそもこれはメニューバーではないのでしょうか?

  • エクセルの数式バーが表示できなくなってしまいました

    エクセルのマクロでメニューバーを非表示にする処理をしました。 ↓これがマクロのソースです。 Application.CommandBars("Worksheet Menu Bar").Enabled =   Not .CommandBars("Worksheet Menu Bar").Enabled これを実行し、自分の思惑通りメニューバーが消えました。 しかし再び処理を実行し、メニューバーを表示させたのですが、数式バーが 表示されません。 どうすれば元に戻るでしょうか?

  • エクセルのメニューバー表示について

    同じような質問を探してみましたが、タイトルは合致するものの、 内容が同じものが探し出せなかったので、申し訳ありません。 会社の同僚のが、エクセル2003で作成したブックを開いたところ、 メニューバーが無くなっていました。 これは、「ユーザー設定」の「ツールバー」タブの中に 「グラフメニュバー」があったので、それにチェックを入れて解決したかに見えました。 でも、メニューバーには「データ」ではなく「グラフ」となってます。 私のもので、確認してみると、先ほどの「ツールバー」タブの中に 「ワークシートメニューバー」があって、それにチェックを入れればOKでした。 ところが、その同僚には「ワークシートメニューバー」というチェックボックスがありません。 同じソフトをインストールしているんですが、解決方法ってあるのでしょうか?

  • エクセル2003で作成したVBAを2007で使用したい

    エクセル2003で下記のようなVBAを作成していました。 作成した物を使用者が印刷設定を変更できないように ブックを開くと同時に印刷ボタンなどを非表示にしていたのですが・・・ 2007でも使用出来るようにしたいと思ったのですが 2007ではこのままではエラーが出てしまうようです。 2007はまったく扱ったことがないのでどのようにすればよいかわかりません。 どなたかご教授いただけたらと思います。 Private Sub Workbook_Open() Application.DisplayStatusBar = False 'ステータスバー非表示 'ブックを開く時ページ設定と印刷を非表示 On Error Resume Next Application.CommandBars("Worksheet Menu Bar").Controls("ファイル(&F)") _ .Controls("ページ設定(&U)...").Enabled = False Application.CommandBars("Worksheet Menu Bar").Controls("ファイル(&F)") _ .Controls("印刷(&P)...").Enabled = False Application.CommandBars("Worksheet Menu Bar").Controls("ファイル(&F)") _ .Controls("印刷プレビュー(&V)").Enabled = False Application.CommandBars("Worksheet Menu Bar").Controls("ファイル(&F)") _ .Controls("印刷範囲(&T)").Enabled = False Application.CommandBars("Standard").Enabled = False End Sub

  • Access2003のメニューバー非表示について

    Application.CommandBars("Menu Bar").Enabled = False のようにするとメニューバーを非表示にすることができると思うのですが、これはだめなのでしょうか? 私の環境では終了したあと設定は元に戻っていて、問題ないのですが、ある環境では設定が戻らず別のAccessファイルを開いたときにメニューバーが消えたままになってしまうようです。 このコードは記述したAccess内だけで適用されてると思っていたのですが、ちがうのでしょうか? また、一般的にはメニューバー非表示処理はどのようにするのでしょうか?

  • 消えたメニューバー

    こんにちは!  本日エクセルで2002で表を作成しようとして気付いたのですが、メニューバーが消えているんです…   ユーザー設定で表示しようと試みたのですが、グラフメニューバーはあるのにワークシートメニューバーがない。たまたま居合わせた人にも聞いたところ、本来メニューバーが非表示になることはないらしいのですが?? 一体どこへ消えてしまったんでしょう。教えて下さーい、お願いします。

  • 他のBOOKにマクロを反映させない様にするには?

    Excel VBA初心者です。 エクセルのWorkbook Openイベントでワークシートメニューバーを非表示にしています。 マクロを作成したBookを開いてから他のBookを開いた場合はワークシートメニューバーは表示されるのですが(マクロは反映されない。)、他のBookを開いた後、マクロを作成したBookを開いた場合ワークシートメニューバーが他のBookまで非表示になってしまいます。(マクロが反映される。) マクロを作成したBookをその他Bookから常に独立させて(別のインスタンス?として開く??)開く様にするにはどうしたらよろしいでしょうか? 以下がOpenイベントです。 Private Sub Workbook_Open() Application.ScreenUpdating = False '動きを見せない Application.DisplayAlerts = False '選択画面をとばす Application.IgnoreRemoteRequests = True '他のアプリケーションを無視 Application.CommandBars("Worksheet Menu Bar").Enabled = False 'メニューバー非表示 ~以下長々とあります。~ End Sub 宜しくお願い致します。 ※メニューバー非表示は、社内に配布した場合にシート内容を変更されたくないためです。

  • Excel 数式バーを非表示にしたい(VBA)

    ツール-オプション-表示-数式バーのチェックを外せば 数式バーを非表示にできますが、VBAでやりたいと思います。 次の様に記述してみましたが、書式バーの「数式バー(F)」のボタンが非表示になるだけで数式バー自体は非表示になりません。 Private Sub Workbook_Open() Application.CommandBars("formatting").Controls(23).Visible = False End Sub 次の様に記述してみても今度は「数式バー(F)」のボタンが操作不可になるだけで数式バー自体は非表示になりません。 Private Sub Workbook_Open() Application.CommandBars("formatting").Controls(23).Enabled = False End Sub 他にも試すのですが、エラーになったりで答えに辿り着けず・・ どなたかヒントだけでもお願いします。

  • VBA2003: 自作メニューバーを操作したい

    Application.CommandBars("Worksheet Menu Bar").Controls.Add このメソッドを使って Excelのメニューバーに自作メニューを追加しました。 メニューは階層構造になっています。 Excelのシート名によって、このメニューに定義したサブメニューやコマンドを Enabled = True/False で表示制御したいのですが、その方法がわかりません。 よろしくお願いします。

  • EXCEL VBAでメニュー作成時のメニュー名表示

    EXCEL VBAでサブメニューなしのメニューを下記コードで作成したところ、 メニューにメニュー名"新しいメニュー(&C)"が表示されず、 メニューの領域(表現がいまいちですが..)のみ作成されます。 (EXCEL=2002SP3 OS=WindowsXP Home Edition Ver.2002 SP2) Dim myBar As CommandBarButton Set myBar = Application.CommandBars("Worksheet Menu Bar").Controls.Add(Type:=msoControlButton) myBar.Caption = "新しいメニュー(&C)" myBar.OnAction = "マクロ" myBar.Visible = True 作成したメニューで右クリックから"ユーザー設定"画面を表示し内容を見ると、 "名前(N):"には"新しいメニュー(&C)" と設定されているのですが、 "既定のスタイル(U)"にチェックが入っており、これを "テキストのみ表示(T)"にチェックを入れると、メニューに 名前"新しいメニュー(&C)"が表示されます。 作成したメニューの名前の表示方法(VBAから)をご教授ねがいます。

専門家に質問してみよう