VBAでステータスバーの表示/非表示を切り替える－Application.DisplayStatusBar

「エクセル2007 ステータスバー 非表示方法」
「Excel2007でステータスバーを非表示にする方法」
といった検索が行われていることがあります。

2003までのExcelならば、メニュー［表示］−［ステータスバー］や、［オプション］ダイアログ−［表示］タブ−［表示］グループ−［ステータスバー］チェックボックスで、ステータスバーの表示・非表示を切り替えられました。

ところがExcel 2007ではそれに該当するオプション設定や、コマンドが見当たりません。
そのことに起因する疑問でしょう。

Excel 2007に限らず、Office 2007ではステータスバーの表示・非表示を切り替えるコマンドはなくなっているようです。

ステータスバーを非表示にするVBAのサンプル

どうしてもステータスバーを非表示にしたいという場合は、VBA（Visual Basic for Applications）を利用してください。

「Application.CommandBars("Status Bar").Visible = False」
でもステータスバーを非表示にできますが、［イミディエイト］ウィンドウを利用する場合は上記の
「Application.DisplayStatusBar = False」
のほうが簡単でしょう。

ステータスバーが非表示になっているときに表示したいときは、
「Application.DisplayStatusBar = True」
「Application.CommandBars("Status Bar").Visible = True」
としてください。

Excelであえてステータスバーを非表示にしたいという場合、Excelで業務用アプリを作成しているような場合でしょう。その場合、業務用アプリを開いたときに実行されるAuto_Openマクロで
「Application.DisplayStatusBar = False」や
「Application.CommandBars("Status Bar").Visible = False」
を実行して、ファイルを閉じるときに実行されるAuto_Closeマクロで
「Application.DisplayStatusBar = True」
「Application.CommandBars("Status Bar").Visible = True」
を実行してステータスバーを表示状態に戻しておくのがいいんじゃないでしょうか。

最終更新日時：2019-08-02 09:38