ブック内のワークシートを非表示にすることを選択した場合、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：/ excelribbon-ExcelTipsMacros [ここをクリックして、新しいブラウザタブでその特別なページを開きます]。

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

このヒント（9636）は、Microsoft Excel 2007、2010、2013、2016、2019、およびOffice 365のExcelに適用されます。Excelの古いメニューインターフェイス用のこのヒントのバージョンは、次の場所にあります。

link：/ excel-Unhiding_Multiple_Worksheets [複数のワークシートの非表示]。