Как скрыть все листы, кроме указанного или активного, в Excel?

Для поддержания рабочей книги в чистоте и удобной навигации вы можете захотеть скрыть все листы, кроме текущего активного, в Excel. В этой статье мы покажем вам два метода скрытия всех листов, кроме указанного или активного, в Excel.

Скрытие всех листов, кроме указанного, в Excel с помощью кода VBA
Скрытие всех листов, кроме активного, с помощью Kutools для Excel (всего несколько кликов)

Скрытие всех листов, кроме указанного, в Excel с помощью кода VBA

Вы можете скрыть все листы, кроме указанного, с помощью кода VBA в Excel. Пожалуйста, выполните следующие действия.

1. В текущей открытой книге переключитесь на лист, который хотите оставить видимым, а затем одновременно нажмите Alt + F11, чтобы открыть окно Microsoft Visual Basic Application.

2. В окне Microsoft Visual Basic Application нажмите Вставить > Модуль. См. скриншот:

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. После запуска кода появится диалоговое окно с отображением имени активного листа в поле Диапазон, затем нажмите кнопку ОК.

Затем все листы будут немедленно скрыты, кроме текущего в вашей книге.

Примечание: Чтобы показать скрытые листы, пожалуйста, скопируйте и вставьте следующий код VBA в Модуль, а затем нажмите клавишу F5, чтобы запустить код.

Код VBA: показать скрытые листы

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

Скрытие всех листов, кроме активного, с помощью Kutools для Excel (один клик)

Вы можете скрыть все листы, кроме указанного или активного, всего одним кликом в Excel.

1. Перейдите к указанному листу, который вы хотите оставить видимым только в текущей книге.

2. Затем нажмите Kutools > Показать и скрыть > Скрыть неактивные листы.

Теперь все листы в текущей книге скрыты, кроме активного.

Примечание: Если вы хотите показать все скрытые листы, пожалуйста, нажмите Kutools > Показать / Скрыть > Показать все листы. См. скриншот: