• ベストアンサー

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

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

  • mk100
  • お礼率81% (35/43)

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

  • ベストアンサー
  • ja7awu
  • ベストアンサー率62% (292/464)
回答No.2

ごめん。 False のスペル違いました。 > Application.CommandBars("Worksheet Menu Bar").Enabled = ・・・ Enabled = も True か False でいいと思います。

mk100
質問者

お礼

どうもレスありがとうございます。 試してみたのですが、駄目です。 私の説明が悪かったのもありますが、メニューバーは表示されるのですが、数式 バーのみ現れないと言う現象です。 true・falseで行っても、メニューバーの表示/非表示を切り替えるのみで、 一向に数式バーのみ表示されません。 もしおわかりになりましたら、お願いいたします。

その他の回答 (1)

  • ja7awu
  • ベストアンサー率62% (292/464)
回答No.1

メニューから[表示]-->[数式バー]にチェック または、VBEイミディエイトウィンドウに Application.DisplayFormulaBar = True Enabled = も True か Fales でいいんですよ。

関連するQ&A

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

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

  • 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 他にも試すのですが、エラーになったりで答えに辿り着けず・・ どなたかヒントだけでもお願いします。

  • エクセル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

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

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

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

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

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

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

  • エクセルの数式バー消失

    表題の通りなのです(困)。 環境はWin-Me、Office2000-Proで使用しています。 エクセルでオートセーブのマクロを書き込んでいる途中、例の「不正処理」を一方的に宣言して落ちていきました。 その後、何回エクセルを立ち上げなおしても「セーブエラー」が宣言され、メニューバーにあるはずの数式バーが表示されません。 再インストールも効き目なし。 どんなお仕置きをしてあげればよいでしょうか?

  • メニューバーを非表示にしたい

    アクセス2007です。 メニューバー?リボンと言うのでしょうか? その部分を非表示にするにはどうすればいいですか? 標準モジュールに Sub test() CommandBars("Menu Bar").Enabled = False End Sub をしてみましたが何も起きません。 ご教授よろしくお願いします。

  • エクセルのメニューバーやツールバーを非表示にする方法

    自分なりにエクセルファイルを作成してきましたが、できれば、メニューバーやツールバーを非表示にしたいと考え、一念発起しました。そして、下のサイトで、答えらしきものを見つけました。具体的には、『メニューを非表示にするには CommandBars オブジェクトの Enabled プロパティをFalse に設定します。再表示する場合は Enabled プロパティを True に設定します。ワークシートメニューを非表示にするには以下のように記述します。』と記載されています。しかし、具体的にどういうことなのか、さっぱり分かりません。ちなみに、マクロ経験は、本を見ながら、必要なものを記入したことがある程度です。どうぞ御指南の程をお願い申し上げます。 http://support.microsoft.com/kb/408057/ja

  • VBA を使用してexcel起動時に 右クリックメニューの行削除や列削除を無効にしようとするとエラーが出ることがある。

    お世話になります。 VBA を使用してexcel起動時に 右クリックメニューの行削除や列削除を無効して、下記VBAを作成しました。 しかしながら、起動時(実行時)に 「実行時エラー 5 プロシージャの呼び出し、または引数が不正です。」が出ることがあります。 でないときもあるのですが、 デバック時にとまるところは、毎回変わり(1)~(5)のどれかで止まります。 使用したい環境はexcel2007,excel2003で正常に動くようにしたいのですが、何卒よろしくお願いします。 *************ソース********************* Private Sub Workbook_Open() InsertEnabled False End Sub Private Sub Workbook_BeforeClose(Cancel As Boolean) InsertEnabled True End Sub Private Sub InsertEnabled(flg As Boolean) With Application (1) Application.CommandBars("Worksheet Menu Bar").Controls("挿入(&I)").Enabled = flg (2) Application.CommandBars("Cell").Controls("挿入(&I)...").Enabled = flg (3)Application.CommandBars("Cell").Controls("削除(&D)...").Enabled = flg (4)Application.CommandBars("Row").Controls("挿入(&I)").Enabled = flg (5)Application.CommandBars("Row").Controls("削除(&D)").Enabled = flg .CommandBars.FindControl(, 296).Enabled = flg .CommandBars.FindControl(, 293).Enabled = flg End With End Sub

専門家に質問してみよう