Excelで業務アプリケーションを作ろうとしている方から
「シート見出しが表示されていない状態にするにはどうしたらいいのでしょうか？」
といったご質問をいただくことがあります。
2003までのExcelなら、メニュー［ツール］−［オプション］をクリックして表示される、［オプション］ダイアログ−［表示］タブの［シート見出し］チェックボックス、Excel 2007なら、［Officeボタン］−［Excelのオプション］ボタンをクリックして表示される、［Excelのオプション］ダイアログ−［詳細設定］−［次のブックで作業するときの表示設定］欄の、［シート見出しを表示する］チェックボックスをOffにすることでシート見出しは非表示になります。
これを自動的に行うにはどうしたらいいのか、というのがご質問の主旨です。
Excelファイルが開くときに実行されるAuto_Openマクロに、シート見出しを非表示にするコードを追加してはいかがでしょうか。
Sub Auto_Open()
ActiveWindow.DisplayWorkbookTabs = False
End Sub
DisplayWorkbookTabsプロパティがTrueのときにシート見出しが表示され、Falseならば非表示になります。
ファイルが開かれるときに実行されるAuto_Openマクロ内で、このDisplayWorkbookTabsプロパティをFalseにしてしまうわけです。
ただし、、DisplayWorkbookTabsプロパティはあくまでもシート見出しの表示・非表示を切り替えるだけです。
アクティブシートを切り替えるショートカットキー：［Ctrl］＋［PageUp］［PageDown］を押せば、シート見出しが非表示であっても、アクティブなワークシートを切り替えることができてしまいます。
アクティブシートの切り替えもさせたくないということであれば、シート自体を非表示にしておくなど、別の方法を考える必要があります。
最終更新日時：2019-08-02 07:54
Home » エクセルマクロ・Excel VBAの使い方 » Windowオブジェクト » VBAでシート見出しを非表示に−Window.DisplayWorkbookTabsプロパティ
