Excelで指定されたシートまたはアクティブなシート以外のすべてのワークシートを非表示にするにはどうすればよいですか？

ワークブックを整理しやすくするために、現在アクティブなシート以外のすべてのワークシートを非表示にしたい場合があります。この記事では、Excelで特定のシートまたはアクティブなシート以外のすべてのワークシートを非表示にする2つの方法を紹介します。

VBAコードを使用してExcelで指定されたシート以外のすべてのワークシートを非表示にする
Kutools for Excelを使用してアクティブなシート以外のすべてのワークシートを非表示にする（数回のクリックのみ）

VBAコードを使用してExcelで指定されたシート以外のすべてのワークシートを非表示にする

VBAコードを使用して、Excelで指定されたシート以外のすべてのワークシートを非表示にすることができます。以下の手順に従ってください。

1. 現在開いているワークブックで、表示しておきたいワークシートに切り替え、Alt + F11キーを同時に押してMicrosoft Visual Basic for Applicationsウィンドウを開きます。

2. Microsoft Visual Basic for Applicationsウィンドウで、挿入 > モジュールをクリックします。スクリーンショットをご覧ください：

3. 次に、以下のVBAコードをコピーしてコードエディターに貼り付けます。

VBAコード：指定されたシート以外のすべてを非表示にする

Sub SheetHidden()
	Dim xWs As Worksheet
	Dim xName As String
	xName = Application.InputBox("Range", xTitleId, Application.ActiveSheet.Name, Type: = 2)
	For Each xWs In Application.ActiveWorkbook.Worksheets
		If xWs.Name <> xName Then
			xWs.Visible = xlSheetHidden
		End If
	Next
End Sub

4. F5キーを押してコードを実行します。

5. コードを実行すると、ダイアログボックスがポップアップ表示され、範囲ボックスにアクティブなシート名が表示されるので、OKボタンをクリックします。

その後、現在のワークブック内のアクティブなシート以外のすべてのワークシートがすぐに非表示になります。

注釈: 非表示にしたワークシートを表示するには、次のVBAコードをモジュールにコピーして貼り付け、F5キーを押してコードを実行してください。

VBAコード：非表示のワークシートを表示する

Sub SheetUnHidden()
	Dim xWs As Worksheet
	For Each xWs In Application.ActiveWorkbook.Worksheets
		xWs.Visible = True
	Next
End Sub

Kutools for Excelを使用してアクティブなシート以外のすべてのワークシートを非表示にする（1回のクリックのみ）

Excelで、指定されたシートまたはアクティブなシート以外のすべてのシートを1回のクリックで非表示にすることができます。

1. 現在のワークブックで表示したいシートに切り替えます。

2. そして、Kutools > 表示/非表示 > 非アクティブなシートを非表示 をクリックします。

すると、現在のワークブック内のアクティブなシート以外のすべてのシートが非表示になります。

注釈: 非表示にしたすべてのワークシートを表示したい場合は、Kutools > 表示/非表示 > すべてのシートを再表示 をクリックしてください。スクリーンショットをご覧ください：