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

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

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

---

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

---

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

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

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

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 (только один щелчок)

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

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

2. Затем нажмите Кутулс > Показать спрятать > Скрыть невыбранные листы.

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

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