Как автоматически скрыть определенные рабочие листы при открытии файла Excel?
Если вам нужно автоматически скрыть некоторые конкретные рабочие листы, когда кто-то открывает книгу, как вы могли бы справиться с этим заданием в Excel?
Автоматическое скрытие определенного рабочего листа при открытии книги с кодом VBA
Автоматическое скрытие некоторых конкретных листов при открытии книги с кодом VBA
Автоматическое скрытие определенного рабочего листа при открытии книги с кодом VBA
Если вы хотите скрыть один конкретный лист при открытии книги, вы можете применить следующий код VBA.
1. Удерживайте ALT + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.
2. Слева Проект-VBAProject панели дважды щелкните значок Эта рабочая тетрадь , чтобы открыть пустой модуль, а затем скопируйте и вставьте в модуль следующий код:
Код VBA: скрыть определенный лист при открытии книги:
Private Sub Workbook_Open()
Sheets("Sheet5").Visible = False
End Sub
Внимание: В приведенном выше коде Sheet5 - это имя листа, который вы хотите скрыть при открытии. Пожалуйста, измените его по своему усмотрению.
3. Затем сохраните и закройте это окно кода и нажмите Файл > Сохранить как чтобы сохранить эту книгу как Excel Macro-Enabled Workbook формат, см. снимок экрана:
4. Когда вы откроете эту книгу в следующий раз, нажмите Включить контент сначала нажмите кнопку, а затем ваш указанный лист будет автоматически скрыт.
Автоматическое скрытие некоторых конкретных листов при открытии книги с кодом VBA
Если при открытии книги необходимо скрыть несколько рабочих листов, вот код также может вам помочь.
1. Сначала вы должны перечислить имена листов, которые вы хотите скрыть при открытии, в списке рабочего листа, а затем перейти к Поле имени дать им название диапазона -ЛистыСкрыть, и нажмите Enter ключ, см. снимок экрана:
2. Затем удерживайте ALT + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.
3. Слева Проект-VBAProject панели дважды щелкните значок Эта рабочая тетрадь , чтобы открыть пустой модуль, а затем скопируйте и вставьте в модуль следующий код:
Код 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
Внимание: В приведенном выше коде ЛистыСкрыть - это имя диапазона, которое вы создали на шаге 1.
4. Затем сохраните и закройте это окно кода и нажмите Файл > Сохранить как чтобы сохранить эту книгу как Excel Macro-Enabled Workbook формат. С этого момента, когда вы откроете эту книгу в следующий раз, указанные рабочие листы будут автоматически скрыты.
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!