Як автоматично приховати певні аркуші під час відкриття файлу 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
примітки: У наведеному вище коді, Sheet5 - це назва аркуша, яку ви хочете сховати на відкритому. Будь ласка, змініть це на свої потреби.
3. Потім збережіть і закрийте це вікно коду та натисніть філе > Зберегти як щоб зберегти цю книгу як Книга Excel з підтримкою макросів формат, див. знімок екрана:
4. Коли ви відкриєте цю книгу наступного разу, натисніть Увімкнути вміст По-перше, а потім вказаний вами аркуш буде автоматично прихований.
Автоматично приховуйте деякі конкретні аркуші під час відкриття книги з кодом VBA
Якщо під час відкриття книги потрібно приховати кілька робочих аркушів, ось також код може вам допомогти.
1. Спочатку слід вказати назви аркушів, які ви хочете відкрити, у списку робочого аркуша, а потім перейти до Ім'я поля щоб дати їм назву діапазону -Архів, і натисніть вводити ключ, див. знімок екрана:
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
примітки: У наведеному вище коді, Архів - це назва діапазону, яку ви створили на кроці 1.
4. Потім збережіть і закрийте це вікно коду та натисніть філе > Зберегти як щоб зберегти цю книгу як Книга Excel з підтримкою макросів формат. Відтепер, коли ви наступного разу відкриєте цю книгу, зазначені робочі аркуші будуть автоматично приховані.
Найкращі інструменти для підвищення продуктивності офісу
Kutools для Excel вирішує більшість ваших проблем і збільшує продуктивність на 80%
- Повторне використання: Швидко вставте складні формули, діаграми і все, що ви використовували раніше; Шифрувати комірки з паролем; Створити список розсилки та надсилати електронні листи ...
- Супер формула бар (легко редагувати кілька рядків тексту та формули); Макет читання (легко читати та редагувати велику кількість комірок); Вставте у відфільтрований діапазон...
- Об’єднати клітинки / рядки / стовпці без втрати даних; Вміст розділених комірок; Об'єднати повторювані рядки / стовпці... Запобігання дублюючим клітинам; Порівняйте діапазони...
- Виберіть Повторюваний або Унікальний Рядки; Виберіть Пусті рядки (усі клітинки порожні); Супер знахідка та нечітка знахідка у багатьох робочих зошитах; Випадковий вибір ...
- Точна копія Кілька клітинок без зміни посилання на формулу; Автоматичне створення посилань на кілька аркушів; Вставте кулі, Прапорці та інше ...
- Витяг тексту, Додати текст, Видалити за позицією, Видаліть пробіл; Створення та друк проміжних підсумків підкачки; Перетворення вмісту комірок та коментарів...
- Супер фільтр (зберегти та застосувати схеми фільтрів до інших аркушів); Розширене сортування за місяцем / тижнем / днем, частотою та іншим; Спеціальний фільтр жирним, курсивом ...
- Поєднайте робочі зошити та робочі аркуші; Об’єднати таблиці на основі ключових стовпців; Розділіть дані на кілька аркушів; Пакетне перетворення xls, xlsx та PDF...
- Понад 300 потужних функцій. Підтримує Office / Excel 2007-2019 та 365. Підтримує всі мови. Простота розгортання на вашому підприємстві чи в організації. Повна функція 30-денної безкоштовної пробної версії. 60-денна гарантія повернення грошей.

Вкладка Office забезпечує інтерфейс з вкладками для Office і значно спрощує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
