Excelブックの左下に表示されているシート見出しを非表示/表示にする方法について説明します。
構文
記述方法は以下の通りとなります。
Windows（”［ブック名］”）.DisplayWorkbookTabs = False
Windows（”［ブック名］”）.DisplayWorkbookTabs = True
[説明]：
シート見出しを非表示にするには「Windows（”［ブック名］”）.DisplayWorkbookTabs = False」と記述し、表示するには「Windows（”［ブック名］”）.DisplayWorkbookTabs = True」と記述します。［ブック名］にはシート見出しを非表示又は表示したいブック名を記述します。また、ブック名は「”」（ダブルクォーテーション）で囲みます。Falseはシート見出しを非表示にするとの意味となり、Trueはシート見出しを表示するとの意味になります。内容を纏めると、「［ブック名］で記述したブックのシート見出しを非表示又は表示して下さい。」との意味になります。
[記述例]：
Windows("Book1.xlsm").DisplayWorkbookTabs = False
Windows("Book1.xlsm").DisplayWorkbookTabs = True
使い方
使い方について具体的に説明していきます。
シート見出しを非表示にする方法
シート見出しを非表示にする方法について説明します。
[プログラミング例]：
Sub サンプル()
Windows("Book1.xlsm").DisplayWorkbookTabs = False
MsgBox "シート見出しを非表示にしました。"
End Sub
内容は、「Book1.xlsmブックのシート見出しを非表示にし、最後にMsgBoxで”シート見出しを非表示にしました。”のメッセージを表示して下さい。」との意味になります。
※上記のプログラミング例は、VBE（VBA記述画面）に記述しないと実行ができません。VBEの開き方についてはこちらを参考にして下さい。
[実行例]：
①<実行>ボタンには上記のプログラミング例のプログラムが登録されています。この時点ではSheet1・Sheet2・Sheet3シートは表示されています。<実行>ボタンをクリックします。（※ボタンにプログラムを割り当てるにはこちらを参考にして下さい。）
②結果は以下の様になります。シートの見出しを非表示にしたため、Sheet1・Sheet2・Sheet3シートが見えなくなりMsgBoxで「シート見出しを非表示にしました。」が表示されます。
[サンプル]：
上記で説明したファイルをダウンロードできます。ご自由にお使い下さい。
シート見出しを非表示にする方法についての説明は以上です。
シート見出しを表示にする方法
シート見出しを表示にする方法について説明します。
[プログラミング例]：
Sub サンプル()
Windows("Book1.xlsm").DisplayWorkbookTabs = True
MsgBox "シート見出しを表示しました。"
End Sub
内容は、「Book1.xlsmブックのシート見出しを表示にし、最後にMsgBoxで”シート見出しを表示しました。”のメッセージを表示して下さい。」との意味になります。
※上記のプログラミング例は、VBE（VBA記述画面）に記述しないと実行ができません。VBEの開き方についてはこちらを参考にして下さい。
[実行例]：
①<実行>ボタンには上記のプログラミング例のプログラムが登録されています。この時点ではシートの見出しが非表示となっているため、シートは見えていません。<実行>ボタンをクリックします。（※ボタンにプログラムを割り当てるにはこちらを参考にして下さい。）
②結果は以下の様になります。シートの見出しを表示にしたため、Sheet1・Sheet2・Sheet3シートが見える様になり、MsgBoxで「シート見出しを表示しました。」が表示されます。
[サンプル]：
上記で説明したファイルをダウンロードできます。ご自由にお使い下さい。
シート見出しを表示にする方法についての説明は以上です。
おわりに
今回はシート見出しを非表示/表示する方法について説明しました。Excelで業務ツールを作成しようとした場合等、シートを表示させたくないケースがあります。その様な場合に活用してみて下さい。