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

ブックをクリーンでナビゲートしやすくするために、Excelで現在アクティブなワークシートを除くすべてのワークシートを非表示にすることができます。 この記事では、Excelで指定されたワークシートまたはアクティブなワークシート以外のすべてのワークシートを非表示にするXNUMXつの方法を紹介します。

VBAコードを使用してExcelで指定したワークシートを除くすべてのワークシートを非表示にする
Kutools for Excelでアクティブなワークシートを除くすべてのワークシートを非表示にします（数回クリックするだけ）

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

ExcelのVBAコードを使用して、指定したワークシートを除くすべてのワークシートを非表示にすることができます。 次のようにしてください。

1.現在開いているブックで、表示するワークシートに移動して、を押します。 他の + F11 同時に開くには Microsoft VisualBasicアプリケーション 窓。

2。 の中に Microsoft VisualBasicアプリケーション ウィンドウ、クリック インセット > モジュール。 スクリーンショットを参照してください：

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

次に、ワークブック内の現在のワークシートを除いて、すべてのワークシートがすぐに非表示になります。

Note：非表示のワークシートを表示するには、次の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でアクティブなワークシートを除くすべてのワークシートを非表示にします（ワンクリックのみ）

Excelでワンクリックするだけで、指定したシートまたはアクティブなシートを除くすべてのシートを非表示にできます。

1.現在のブックにのみ表示するように指定したシートに入ります。

2。 次に、をクリックします クツール > 表示と非表示 > 選択されていないシートを非表示.

次に、現在のブックのすべてのシートが、アクティブなシートを除いて非表示になります。

Note：すべての非表示のワークシートを表示する場合は、をクリックしてください クツール > 表示/非表示 > すべてのシートを再表示。 スクリーンショットを参照してください：