Скрыть все листы миф excel

Skip to content

Sub SkritVseKromeAktivnogoLista()
'Шаг 1: Объявляем переменную
Dim ws As Worksheet
'Шаг 2: Запускаем цикл по всем рабочим листам
For Each ws In ThisWorkbook.Worksheets
'Шаг 3: Сравниваем имя каждого листа с активным
If ws.Name <> ThisWorkbook.ActiveSheet.Name Then
'Шаг 4: Скрываем лист, если не совпадают
ws.Visible = xlSheetHidden
End If
'Шаг 5: Переходим на следующий рабочий лист
Next ws
End Sub

Чтобы книга оставалась чистой и удобной для навигации, вы можете скрыть все рабочие листы, кроме текущего активного в 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. Затем нажмите Кутулс > Показать спрятать > Скрыть невыбранные листы.

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

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

  Если вы хотите получить бесплатную пробную версию (30-день) этой утилиты, пожалуйста, нажмите, чтобы загрузить это, а затем перейдите к применению операции в соответствии с указанными выше шагами.

В статье «Как скрыть /отобразить страницу в Excel» мы рассмотрели как вручную открыть/ скрыть лист книги, все то же самое можно сделать и написав простой VBA макрос:

Sub Макрос1 ()
ActiveWindow.SelectedSheets.Visible = False 'Прячем активный лист
Sheets ("Лист2").Visible = False 'Прячем лист с именем "Лист2", можно аналогично отобразить лист обращаясь к нему по имени, но с параметром 'true'
End Sub

Лист так же можно скрыть и вручную из редактора VBA. Зайдем в редактор (Alt+F11) и кликнув на соответствующий лист, в настройках в параметре Visible  выберем интересующий нас статус видимости листа, в том числе статус «VeryHidden», который позволит убрать лист из списка скрытых листов (список вызывается из самого документа Excel при клике правой кнопкой мыши по названию листа):

Будем благодарны, если Вы нажмете +1 и/или Мне нравится внизу данной статьи или поделитесь с друзьями с помощью кнопок расположенных ниже.