В уроке рассказывается о том, как скрыть рабочие листы в Excel 2016, 2013, 2010 и ниже. Вы узнаете, как быстро скрыть рабочий лист, щелкнув правой кнопкой мыши, и как скрыть все листы одновременно с помощью кода VBA.

Представьте себе: вы открываете рабочий лист и замечаете, что некоторые формулы ссылаются на другой рабочий лист. Вы смотрите на вкладки листов, но ссылающейся таблицы там нет! Вы пытаетесь создать новый лист с тем же именем, но Excel сообщает вам, что он уже существует. Что это значит? Просто рабочий лист скрыт. Как просмотреть скрытые листы в Excel? Очевидно, что их нужно снять. Это можно сделать следующим образомвыполняется вручную с помощью функции Excel Скрыть или автоматически с помощью VBA. Этот учебник научит вас обоим методам.

Как снять скрытие листов в Excel

Если вы хотите увидеть только один или два скрытых листа, вот как их можно быстро снять:

1. В рабочей книге Excel щелкните правой кнопкой мыши любую вкладку листа и выберите Скрыть ... из контекстного меню.
2. В Скрыть выберите скрытый лист, который вы хотите отобразить, и нажмите кнопку OK (или дважды щелкните по имени листа). Готово!

Помимо контекстного меню, вызываемого правой кнопкой мыши, в меню Скрыть Диалог можно открыть с ленты:

• В Excel 2003 и более ранних версиях нажмите кнопку Формат меню, а затем нажмите Лист > Скрыть .
• В Excel 2016, Excel 2013, Excel 2010 и Excel 2007 перейдите в раздел Главная вкладка> Клетки группу, и нажмите кнопку Формат Под Видимость , указать на Скрыть & Скрыть , а затем нажмите Спрятать лист ...

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

Как скрыть листы в Excel с помощью VBA

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

Как скрыть все листы в Excel

Этот небольшой макрос делает все скрытые листы в активной рабочей книге видимыми сразу, не беспокоя вас никакими уведомлениями.

Sub Unhide_All_Sheets() Dim wks As Worksheet For Each wks In ActiveWorkbook.Worksheets wks.Visible = xlSheetVisible Next wks End Sub

Показать все скрытые листы и отобразить их количество

Как и описанный выше макрос, этот макрос также отображает все скрытые листы в рабочей книге. Разница заключается в том, что по завершении он показывает диалоговое окно, информирующее пользователя о том, сколько листов было скрыто:

Sub Unhide_All_Sheets_Count() Dim wks As Worksheet Dim count As Integer count = 0 For Each wks In ActiveWorkbook.Worksheets If wks.Visible xlSheetVisible Then wks.Visible = xlSheetVisible count = count + 1 End If Next wks If count> 0 Then MsgBox count & " рабочие листы были скрыты." , vbOKOnly, "Unhiding worksheets" Else MsgBox "Скрытые рабочие листы не найдены." , vbOKOnly,"Снятие скрытия рабочих листов" End If End Sub

Скройте несколько выбранных листов

Если вы предпочитаете не скрывать все рабочие листы сразу, а только те, которые пользователь явно согласился сделать видимыми, то макрос должен спрашивать о каждом скрытом листе отдельно, например, так:

Sub Unhide_Selected_Sheets() Dim wks As Worksheet Dim MsgResult As VbMsgBoxResult For Each wks In ActiveWorkbook.Worksheets If wks.Visible = xlSheetHidden Then MsgResult = MsgBox( "Unhide sheet " & wks.Name & "?" , vbYesNo, "Unhiding worksheets" ) If MsgResult = vbYes Then wks.Visible = xlSheetVisible End If Next End Sub

Скрыть рабочие листы с определенным словом в названии листа

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

В этом примере мы убираем листы со словом " отчет " в имени. Макрос отобразит такие листы, как Отчет , Отчет 1 , Июльский отчет , и т.п.

Чтобы скрыть рабочие листы, названия которых содержат другое слово, замените " отчет " в следующем коде с вашим собственным текстом.

Sub Unhide_Sheets_Contain() Dim wks As Worksheet Dim count As Integer count = 0 For Each wks In ActiveWorkbook.Worksheets If (wks.Visible xlSheetVisible) And (InStr(wks.Name, "report" )> 0) Then wks.Visible = xlSheetVisible count = count + 1 End If Next wks If count> 0 Then MsgBox count & " рабочие листы были скрыты." , vbOKOnly, "Unhiding worksheets" Else MsgBox "No hiddenнайдены рабочие листы с указанным именем." , vbOKOnly, "Снятие скрытия рабочих листов" End If End Sub

Как использовать макросы для скрытия листов в Excel

Чтобы использовать макросы в своем рабочем листе, вы можете либо скопировать/вставить код в редактор Visual Basic, либо загрузить рабочую книгу с макросами и запустить их оттуда.

Как вставить макрос в рабочую книгу

Вы можете добавить любой из вышеперечисленных макросов в рабочую книгу таким образом:

1. Откройте рабочую книгу со скрытыми листами.
2. Нажмите Alt + F11, чтобы открыть редактор Visual Basic.
3. На левой панели щелкните правой кнопкой мыши ThisWorkbook и выберите Вставка > Модуль из контекстного меню.
4. Вставьте код в окно Код.
5. Нажмите F5, чтобы запустить макрос.

Подробные пошаговые инструкции см. в статье Как вставить и запустить код VBA в Excel.

Загрузите рабочую тетрадь с макросами

Кроме того, вы можете скачать наш образец рабочей книги для скрытия листов в Excel, который содержит все макросы, обсуждаемые в этом учебнике:

• Скрыть_все_листы - мгновенно и бесшумно скрыть все рабочие листы в активной рабочей книге.
• Unhide_All_Sheets_Count - показать все скрытые листы вместе с их количеством.
• Скрыть_выбранные_листы - отображать скрытые листы, которые вы решили убрать.
• Скрыть_листы_содержимого - скрыть рабочие листы, названия которых содержат определенное слово или текст.

Чтобы запустить макросы в Excel, сделайте следующее:

1. Откройте загруженную рабочую книгу и при появлении запроса включите макросы.
2. Откройте собственную рабочую книгу, в которой вы хотите увидеть скрытые листы.
3. В рабочей книге нажмите Alt + F8, выберите нужный макрос и нажмите кнопку Запускайте .

Например, чтобы скрыть все листы в файле Excel и отобразить количество скрытых листов, запустите этот макрос:

Как показать скрытые листы в Excel с помощью создания пользовательского представления

Помимо макросов, утомительную процедуру показа скрытых листов по одному можно преодолеть, создав пользовательское представление. Если вы не знакомы с этой функцией Excel, вы можете представить себе пользовательское представление как снимок настроек рабочей книги, который можно применить в любой момент одним щелчком мыши. Этот метод лучше всего использовать в самом начале работы, когда ни один из листов еще не скрыт.

Итак, что мы собираемся сделать сейчас, так это создать Показать все листы пользовательский вид. Вот как:

1. Убедитесь, что все электронные таблицы в вашей рабочей книге являются видимый В этом совете показано, как быстро проверить рабочую книгу на наличие скрытых листов.
2. Перейти к Посмотреть вкладка> Представления рабочей книги группу, и нажмите кнопку Пользовательские виды кнопка.

Сайт Пользовательский просмотр появится диалоговое окно, и вы нажмете Добавить...

в Добавить просмотр В диалоговом окне введите имя вашего пользовательского представления, например ShowAllSheets , и нажмите OK.

Теперь вы можете скрыть столько рабочих листов, сколько захотите, а когда захотите сделать их снова видимыми, нажмите кнопку Пользовательские виды выберите кнопку ShowAllSheet вид и нажмите Показать , или просто дважды щелкните на представлении.

Вот и все! Все скрытые листы будут немедленно показаны.

Как проверить, содержит ли рабочая книга скрытые листы

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

Примечание. Этот метод не показывает очень скрытые листы. Единственный способ просмотреть такие листы - это снять их с помощью VBA.

Невозможно скрыть листы в Excel - проблемы и решения

Если вы не можете скрыть определенные листы в Excel, следующие советы по устранению неполадок могут пролить свет на причину этого.

1. рабочая книга защищена

Невозможно скрыть или удалить листы, если структура рабочей тетради был защищен (не следует путать с шифрованием паролем на уровне рабочей книги или защитой рабочего листа). Чтобы проверить это, перейдите в раздел Обзор вкладка> Изменения группу и взгляните на Рабочая тетрадь по защите Если эта кнопка выделена зеленым цветом, рабочая книга защищена. Чтобы снять защиту, нажмите кнопку Рабочая тетрадь по защите введите пароль, если появится запрос, и сохраните рабочую книгу. Дополнительные сведения см. в разделе Как разблокировать защищенную рабочую книгу в Excel.

2. рабочие листы очень скрыты

Если ваши рабочие листы скрыты с помощью кода VBA, который делает их очень скрытыми (присваивает им значение xlSheetVeryHidden ), такие рабочие листы не могут быть отображены с помощью свойства Скрыть Чтобы убрать скрытые листы, нужно изменить свойство с xlSheetVeryHidden на xlSheetVisible из редактора Visual Basic или запустить этот код VBA.

3. в рабочей книге нет скрытых листов

Если Скрыть на ленте и в меню правой кнопки мыши, значит, в вашей рабочей книге нет ни одного скрытого листа :)

Если вам интересно узнать, как скрыть или разблокировать другие объекты, такие как строки, столбцы или формулы, вы найдете полную информацию в следующих статьях. Я благодарю вас за чтение и надеюсь увидеть вас в нашем блоге на следующей неделе!

Доступные загрузки

Макросы для скрытия рабочих листов в Excel