KutoolsforOffice — Одно решение — пять мощных инструментов.Меньше усилий — больше результата.

Как автоматически скрывать определённые листы при открытии файла Excel?

АвторСяоянДата изменения

Как можно автоматически скрывать определённые листы при открытии книги другими пользователями в Excel?

Автоматическое скрытие определённого листа при открытии книги с помощью кода VBA

Автоматическое скрытие нескольких определённых листов при открытии книги с помощью кода VBA

синяя стрелка вправо с пузырём Автоматическое скрытие определённого листа при открытии книги с помощью кода VBA

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

1. Удерживая нажатыми клавиши ALT + F11, откройте окно Microsoft Visual Basic для приложений.

2. В области слева Обозреватель проектов — VBAProject дважды щёлкните по элементу ThisWorkbook, чтобы открыть пустой модуль, затем скопируйте и вставьте в него приведённый ниже код:

Код VBA: скрытие определённого листа при открытии книги:

Private Sub Workbook_Open()
Sheets("Sheet5").Visible = False
End Sub

скопируйте и вставьте код в модуль ThisWorkbook

Примечание: в приведённом выше коде Sheet5 — это имя листа, который будет скрыт при открытии. Замените его на нужное вам имя.

3. Затем сохраните и закройте окно с кодом, выберите Файл > Сохранить как, чтобы сохранить книгу в формате Книга Excel с поддержкой макросов. См. снимок экрана:

сохраните книгу в формате книги Excel с поддержкой макросов

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

нажмите кнопку «Включить содержимое», чтобы активировать код

снимок экрана kutools for excel ai

Раскройте магию Excel с помощью KUTOOLS AI

  • Интеллектуальное выполнение: Выполняйте операции с ячейками, анализируйте данные и создавайте диаграммы — всё это доступно через простые команды.
  • Пользовательские формулы: создавайте индивидуальные формулы для оптимизации рабочих процессов.
  • Программирование на VBA: Пишите и внедряйте код VBA легко и без усилий.
  • Анализ формул: Легко разбирайтесь даже в самых сложных формулах.
  • Перевод текста: Ломайте языковые барьеры прямо в ваших таблицах.
Расширьте возможности Excel с помощью инструментов на базе ИИ.Скачать сейчаси ощутите эффективность, как никогда раньше!

синяя стрелка вправо с пузырём Автоматическое скрытие нескольких определённых листов при открытии книги с помощью кода VBA

Если при открытии книги необходимо сразу скрыть несколько листов, воспользуйтесь приведённым ниже кодом.

1. Сначала составьте список имён листов, которые нужно скрывать при открытии книги, на любом из её листов. Затем перейдите в Поле имени, присвойте этому диапазону имя SheetsToHide и нажмите клавишу Enter. См. снимок экрана:

перечислите имена листов для скрытия и задайте для них имя диапазона

2. Затем нажмите и удерживайте клавиши ALT + F11, чтобы открыть окно Microsoft Visual Basic для приложений.

3. В левой области Обозреватель проектов — VBAProject дважды щёлкните элемент ThisWorkbook, чтобы открыть пустой модуль, затем скопируйте и вставьте в него приведённый ниже код:

Код VBA: скрытие нескольких определённых листов при открытии книги:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
   'Updateby Extendoffice 20161206
    Dim ws As Worksheet
    For Each ws In Worksheets
       ws.Visible = xlSheetVisible
    Next ws
End Sub
Private Sub Workbook_Open()
    Dim ws As Worksheet
        For Each ws In Worksheets
            If WorksheetFunction.CountIf([SheetsToHide], ws.Name) > 0 Then
                ws.Visible = xlSheetHidden
                MsgBox ws.Name & "Has been hidden!", vbInformation, "Kutools for Excel"
            Else
                ws.Visible = xlSheetVisible
            End If
        Next ws
    Set ws = Nothing
End Sub

скопируйте и вставьте код в модуль ThisWorkbook

Примечание: в приведённом выше коде SheetsToHide — это имя ячейки, созданное вами на шаге 1.

4. Затем сохраните и закройте окно с кодом, выберите Файл > Сохранить как, чтобы сохранить книгу в формате Книга Excel с поддержкой макросов. Начиная с этого момента, при каждом последующем открытии этой книги соответствующие листы будут автоматически скрываться.

Лучшие инструменты повышения продуктивности в Office

🤖KUTOOLS AI Помощник: Преобразуйте Анализ данных с помощью:Интеллектуального выполнения   |  Генерации кода|  Создания пользовательские формулы  |  Анализа данных и построения диаграмм|  Вызова Расширенные функции…
Популярные функции:Поиск, выделение или Отметить дубликаты   |  Удалить пустые строки   |  Объединить столбцы или ячеек без потери данных   |  Округление без использования формул…
Супер ПОИСК:VLookup по нескольким критериям  |  VLookup по нескольким значениям  |   VLookup по нескольким листам   |   Распознавание нечетких соответствий…
Расширенный раскрывающийся список:Быстрое создание выпадающего списка   |  Зависимый выпадающий список   |  Выпадающий список с множественным выбором…
Управление столбцами:Добавление заданного количества столбцов|Перемещение столбцов|Переключение видимости скрытых столбцов|Сравнение диапазонов и столбцов…
Избранные функции:Сетка фокусировки   |  Просмотр дизайна   |Улучшенная строка формулы   | Управление рабочими книгами и листами   |  Библиотека ресурсов(автотекст)|  Выбор даты   |  Объединить листы  |  Шифрование/Расшифровать ячейки   | Отправка писем по списку   |  Супер фильтр   |   Специальный фильтр(Фильтр ячеек с жирным шрифтом/курсив/зачёркивание…) …
Лучшие наборы инструментов 15:12 Текстовыеинструменты(Добавить текст,Удалить определенные символы, …)|   50+Типыдиаграмм(Диаграмма Ганта, …)|   40+ Практические формулы(Рассчитать возраст на основе даты рождения, …)|   19 Инструментывставки(Вставить QR-код,Вставка изображения по пути, …)|   12 Инструментыпреобразования(Преобразовать в слова,Конвертация валют, …)|   7 Объединить и разделитьИнструменты(Расширенное объединение строк,Разделить ячейки, …)|… и многое другое
Используйте Kutools на предпочитаемом языке — поддержка английского, испанского, немецкого, французского, китайского и ещё 40+ языков!

Раскройте весь потенциал Excel с помощью Kutools для Excel и ощутите эффективность как никогда раньше.Kutools для Excel предлагает более 300 расширенных функций для повышения продуктивности и Экономия времени.Нажмите здесь, чтобы получить нужную Вам функцию…

Office Tab добавляет в Office вкладки и значительно упрощает Вашу работу

  • Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
  • Открывайте и создавайте несколько документов во вкладках одного окна — вместо того чтобы использовать отдельные окна.
  • Повышает вашу продуктивность на 50 % и экономит сотни кликов мышью каждый день!

Все надстройки Kutools — один установщик

Kutools for Office — набор надстроек для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro, идеально подходящий командам, работающим с разными приложениями Office.

ExcelWordOutlookTabsPowerPoint
  • Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
  • Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
  • Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
  • 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
  • Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек