ブック内のワークシートを非表示にすることを選択した場合、Excelでは1回の操作で複数のシートを非表示にできます。実際に非表示にする前にシートを選択するだけです。ただし、ワークシートの再表示は別の話です。 Excelでは、一度に1つしか再表示できません。

再表示したいワークシートがたくさんある場合、これは非常に面倒な場合があります。

これを回避する唯一の方法は、マクロを使用してワークシートを再表示することです。次のVBAマクロは、現在のブック内のすべてのワークシートを再表示します。

Sub UnhideAllSheets()

Dim wsSheet As Worksheet

For Each wsSheet In ActiveWorkbook.Worksheets         wsSheet.Visible = xlSheetVisible     Next wsSheet End Sub

すべてのワークシートを一度に再表示したくない場合は、マクロに非表示の各ワークシートについて尋ねてから、再表示することに同意した各ワークシートを再表示できます。次のマクロがこのタスクを処理します：

Sub UnhideSomeSheets()

Dim sSheetName As String     Dim sMessage As String     Dim Msgres As VbMsgBoxResult

For Each wsSheet In ActiveWorkbook.Worksheets         If wsSheet.Visible = xlSheetHidden Then             sSheetName = wsSheet.Name             sMessage = "Unhide the following sheet?" _               & vbNewLine & sSheetName             Msgres = MsgBox(sMessage, vbYesNo)

If Msgres = vbYes Then wsSheet.Visible = xlSheetVisible         End If     Next wsSheet End Sub

注：

このページ（または_ExcelTips_サイトの他のページ）で説明されているマクロの使用方法を知りたい場合は、役立つ情報を含む特別なページを用意しました。

linkここをクリックして、新しいブラウザタブでその特別なページを開きます。

_ExcelTips_は、費用効果の高いMicrosoftExcelトレーニングのソースです。

このヒント（2603）は、Microsoft Excel 97、2000、2002、および2003に適用されます。Excel（Excel 2007以降）のリボンインターフェイス用のこのヒントのバージョンは、次の場所にあります。

link複数のワークシートの非表示。