Як приховати лист в Excel

Ми можемо приховати робочий лист, тоді будь-хто, хто відкриє ваш файл, не побачить його в списку з листами. Але це так само легко вимкнути.

Але бувають ситуації, коли потрібно приховати лист таким чином, щоб його не міг «дістати» будь-хто.

Ми розглянемо такі ситуації у рамках цієї статті.

Тож почнемо!

Стандартний метод приховування листа

Покрокова інструкція:

  • Відкрийте опції аркуша та оберіть «Приховати»;

Як приховати лист в Excel

Отже, ми приховали наш аркуш. Коли ви (або хтось інший) відкриє файл, він не побачить аркуш, який ми приховали.

У ситуації, коли необхідно приховати відразу багато аркушів, ви можете виділити їх за допомогою кнопки CTRL і так само приховати.

Ми приховали лист, але їх дуже просто дістати. Зараз я продемонструю як.

Покрокова інструкція:

  • Відкрийте опції будь-якого аркуша;
  • Клацніть на «Показати…»;

Як приховати лист в Excel

  • У вікні «Виведення на екран прихованого аркуша» виберіть потрібний вам аркуш;

Як приховати лист в Excel

  • Підтвердіть.

Отже, лист знову доступний.

На відміну від приховування, “діставати” листи вам доведеться по одному. Немає універсального способу дістати відразу велику кількість аркушів.

Цей спосіб дуже простий, але він не допоможе у разі коли потрібно приховати листи таким чином, щоб їх не дістали.

Досить зробити пару кліків мишки і лист можна дістати із приховання. Але що робити, якщо потрібно добре його приховати?

Це буде у наступному розділі моєї статті.

Як приховати лист таким чином, щоб було складно його дістати

Покрокова інструкція:

  • Відкрийте опції аркуша;
  • Натисніть «Переглянути код»;

Як приховати лист в Excel

  • Відкрився Visual Basic, виберіть потрібний вам аркуш;

Як приховати лист в Excel

  • Натисніть піктограму “Properties Window” або використовуєте гарячу клавішу F4;

Як приховати лист в Excel

  • Відкриється вікно налаштувань аркуша, знайдіть параметр “Visible”;

Як приховати лист в Excel

  • І вкажіть опцію “xlSheetVeryHidden”;

Як приховати лист в Excel

  • Закрийте Visual Basic.

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

Так, дійсно, лист тепер ніде не видно, але це не надійний спосіб. Це допоможе вам приховати лист від людей, які не дуже розуміються на методах приховування листів. Вони просто не зможуть його знайти. Але від людей хтось щось у цьому розуміє, у такий спосіб лист не приховати.

Дістаємо лист, який сховали у минулому розділі

Покрокова інструкція:

  • Відкрийте опції будь-якого аркуша;
  • Натисніть «Переглянути код»;

Як приховати лист в Excel

  • Відкриється віконце Visual Basic, натисніть на значок Properties Window або скористайтеся гарячою клавішею F4;

Як приховати лист в Excel

  • І поміняйте значення параметра “Visible” на “xlSheetVisible”;

Як приховати лист в Excel

  • Закрийте Visual Basic.

Отже, лист знову доступний.

Приховування листа за допомогою Visual Basic

Visual Basic завжди використовують для автоматизації завдань. Оскільки він запускає код, можна автоматизувати абсолютно будь-які завдання, наше — в тому числі.

Отже, як приховати абсолютно всі аркуші, використовуючи той же метод, що й у минулому розділі статті, але вже автоматично.

Код:

Sub HideAllExceptActiveSheet() Dim ws As Worksheet For Each ws In ThisWorkbook.Worksheets If ws.Name <> ActiveSheet.Name Then ws.Visible = xlSheetHidden Next ws End Sub

Цей метод має один мінус: те, що ми приховали, можна буде побачити в віконці прихованих листів.

Ось модифікований код, якщо ви виконаєте його, переглянути приховане буде неможливо.

Sub HideAllExcetActiveSheet() Dim ws As Worksheet For Each ws In ThisWorkbook.Worksheets If ws.Name <> ActiveSheet.Name Then ws.Visible = xlSheetVeryHidden Next ws End Sub

Тепер листи, у віконці прихованих листів, не буде видно.

Дістаємо усі листи за допомогою Visual Basic

Цей код “достане” всі листи з приховування:

Sub UnhideAllWoksheets() Dim ws As Worksheet For Each ws In ThisWorkbook.Worksheets ws.Visible = xlSheetVisible Next ws End Sub

Куди ж вставити всі ці коди, щоби все запрацювало?

Покрокова інструкція:

  • Клацніть на “Розробник”;

Як приховати лист в Excel

  • Натисніть на піктограму Visual Basic;

Як приховати лист в Excel

  • У вікні, натисніть правою кнопкою на будь-який аркуш;
  • “Insert” -> “Module”;

Як приховати лист в Excel

  • У вікно, що відкрилося, вставте потрібний вам код і закрийте Visual Basic.

Як приховати лист в Excel

Отже ми створили функцію. Ви можете запустити її з книги макросів або просто натиснути Run у Visual Basic. Способів запуску багато.

Також можна модифікувати код таким чином, що він зможе виконувати відразу кілька функцій. Наприклад, приховування та зняття приховування аркушів в одному коді, але для цього вам потрібно змінити код.

nBook
Додати коментар