まさ工房

ExcelVBAとAcessDBを利用した業務支援ツールを作成する工房です

【Excelマクロ・VBA】シート見出しを非表示/表示にするにはどうすればいいの?教えて!

       f:id:m_kbou:20190710080039p:plain

Excelブックの左下に表示されているシート見出しを非表示にする方法について説明します。シート見出しを非表示にする事で、マウスでのシート操作をできない様にします。

 

【目次】

 

構文

記述方法は、以下の通りとなります。

=======================================================================

Windows(”[ブック名]”).DisplayWorkbookTabs False

Windows(”[ブック名]”).DisplayWorkbookTabs True

=======================================================================

[説明]:

シート見出しを非表示/表示にするには、DisplayWorkbookTabsプロパティを記述します。[ブック名]にはシート見出しを非表示又は表示したいブック名を記述します。また、ブック名は「”」(ダブルクォーテーション)で囲みます。Falseを指定するとシート見出しを非表示にし、Trueを指定するとシート見出しを表示します。内容を纏めると、「[ブック名]で記述したブックのシート見出しを非表示又は表示して下さい。」との意味になります。

[記述例]:

Windows("Book1.xlsm").DisplayWorkbookTabs = False
Windows("Book1.xlsm").DisplayWorkbookTabs = True

 

使い方

使い方について、具体的に説明していきます。

シート見出しを非表示にする方法

シート見出しを非表示にする方法について説明します。

[記述例]:

※以下の記述例は、VBE(VBA記述画面)に記述しないと実行ができません。VBEの開き方については、VBEの開き方を参考にして下さい。

-------------------------------------------------

Sub サンプル()
    Windows("Book1.xlsm").DisplayWorkbookTabs = False
    MsgBox "シート見出しを非表示にしました。"
End Sub

-------------------------------------------------

内容は、「Book1.xlsmブックのシート見出しを非表示にし、最後にMsgBoxで”シート見出しを非表示にしました。”のメッセージを表示して下さい。」との意味になります。

[実行例]:

・初期表示

f:id:m_kbou:20190710080103p:plain

・実行後 

f:id:m_kbou:20190710080116p:plain

 シート見出しを非表示にする方法についての説明は以上です。

 

シート見出しを表示にする方法

シート見出しを表示にする方法について説明します。

[記述例]:

※以下の記述例は、VBE(VBA記述画面)に記述しないと実行ができません。VBEの開き方については、VBEの開き方を参考にして下さい。

-------------------------------------------------

Sub サンプル()
    Windows("Book1.xlsm").DisplayWorkbookTabs = True
    MsgBox "シート見出しを表示しました。"
End Sub

-------------------------------------------------

内容は、「Book1.xlsmブックのシート見出し表示にし、最後にMsgBoxで”シート見出しを表示しました。”のメッセージを表示して下さい。」との意味になります。

[実行例]:

・初期表示

f:id:m_kbou:20190710080131p:plain

・実行後 

f:id:m_kbou:20190710080141p:plain

 シート見出しを表示にする方法についての説明は以上です。

 

おわりに

今回は、シート見出しを非表示/表示する方法について説明しました。Excelで業務ツール等を作成しようとする場合、シートを表示させたくないケースが多々あります。その様な場合に有効活用して下さい。