アクティブなワークシート以外をすべて非表示にするExcelマクロ

このマクロを使用して、非アクティブなワークシートを非表示にすることができます。Excelでは、ブック内のすべてのシートを非表示にすることはできません。少なくとも1つは表示する必要があります。ただし、アクティブなシート以外はすべて非表示にできます。

マクロのしくみ

ここでのマクロはワークシートをループし、各ワークシート名をアクティブなシートの名前と照合します。マクロがループするたびに、一致しないワークシートが非表示になります。

サブMacro1（）
'ステップ1：変数を宣言する
    ワークシートとして薄暗い
'ステップ2：すべてのワークシートのループを開始します
    ThisWorkbook.Worksheetsの各wsについて
'ステップ3：各ワークシート名を確認する
    If ws.Name <> ThisWorkbook.ActiveSheet.Name Then
'ステップ4：シートを非表示にする
    ws.Visible = xlSheetHidden
    終了する場合
'ステップ5：次のワークシートにループする
    次のws
エンドサブ

ステップ1は、wsというオブジェクトを宣言します。この手順では、マクロがループするワークシートごとにメモリコンテナを作成します。

ステップ2はループを開始し、Excelにこのブック内のすべてのワークシートを評価するように指示します。ThisWorkbookとActiveWorkbookの違いに注意してください。ThisWorkBookオブジェクトは、コードを含むブックを参照します。ActiveWorkBookオブジェクトは、現在アクティブなブックを参照します。多くの場合、同じオブジェクトを返しますが、コードを実行しているブックがアクティブなブックでない場合は、異なるオブジェクトを返します。この場合、他のブックにシートを隠すリスクを冒したくないので、ThisWorkBookを使用します。

ステップ3では、マクロはアクティブなシート名を現在ループしているシートと単純に比較します。

シート名が異なる場合、マクロは手順4でシートを非表示にします。

ステップ5では、ループバックして次のシートを取得します。すべてのシートが評価された後、マクロは終了します。

マクロでxlsheetHiddenを使用することに注意してください。このプロパティは、シートを右クリックして[非表示]を選択したときに通常取得するデフォルトの非表示状態を適用します。このデフォルトの非表示状態では、ユーザーは任意のタブを右クリックして[再表示]を選択すると、すべての非表示のシートが表示されます。しかし、別の非表示状態は、デフォルトよりも秘密です。xlSheetVeryHiddenを使用してシートを非表示にすると、ユーザーはタブを右クリックして[再表示]を選択しても、シートをまったく表示できなくなります。この方法で非表示にしたシートを再表示する唯一の方法は、VBAを使用することです。