Как отобразить все листы книги

Что делает макрос: Если Вам когда-либо приходилось отобразить все листы, скрытые в Excel файле, то Вы понимаете, сколько времени занимает этот процесс. К примеру, чтобы отобразить 4 листа, Вам нужно нажать четыре раза для отображения каждого листа. Это не так страшно, если листов не много, а как быть, если скрыты сразу 10 и более листов? На помощь приходит этот макрос.

Как макрос работает

Этот макрос с помощью цикла пробегает по всем рабочим листам и делает их видимыми.

Код макроса

Sub OtobrazitVseListi()
'Шаг 1: Объявляем переменные
Dim ws As Worksheet
'Шаг 2: Запускаем цикл через все рабочие листы
For Each ws In ActiveWorkbook.Worksheets
'Шаг 3: Устанавливаем свойство Видимый
ws.Visible = xlSheetVisible
'Шаг 4: Переходим к следующему листу
Next ws
End Sub

Как работает этот код

1. Объявляем переменную WS, которая будет хранить имя каждого листа.
2. На шаге 2 макрос начинает цикл по всем рабочим листам в этой книге.
3. Шаг 3 изменяет значение свойства на xlSheetVisible.
4. Затем он возвращаемся назад, чтобы получить следующий рабочий лист.

Как это использовать

1. Активируйте редактор Visual Basic, нажав ALT + F11.
2. Щелкните правой кнопкой мыши personal.xlb в окне Project.
3. Введите или вставьте код во вновь созданном модуле.