Як закрити лист в Excel від перегляду

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

Інколи виникають обставини, коли необхідно заховати лист так, щоб він був недоступний для інших.

У даній статті ми прокоментуємо такі обставини.

Звернімося до справи!

Звичний спосіб захисту електронного листа

Алгоритм дій:

• Зайдіть у налаштування аркуша та виберіть пункт «Сховати»;

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

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

Ми заховали лист, але їх легко можна знайти. Я зараз покажу, як це зробити.

Алгоритм дій:

• Увімкніть налаштування будь-якого листа;

– “

• Натисніть на «Переглянути…»;

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

• Підтверджуйте.

Таким чином, лист знову став доступним.

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

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

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

Ця інформація з’явиться в наступному розділі моєї статті.

Способи сховати лист так, щоб його було важко знайти

Інструкція по кроках:

• Активуйте налаштування таблиці;

• Оберіть «Показати код»;

• Запустіть Visual Basic і оберіть необхідний аркуш;

• Клікніть на іконку “Вікно властивостей” або скористайтеся комбінацією клавіш F4;

• З’явиться вікно з налаштуваннями аркуша, знайдіть опцію “Visible”;

• Та виберіть параметр “xlSheetVeryHidden”;

• Завершіть роботу з Visual Basic.

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

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

Витягуємо лист, що був прихований у попередньому розділі

Інструкція по кроках:

• Зайдіть в налаштування будь-якого робочого листа;

Скопіюйте код, натиснувши кнопку “Переглянути код”.

Відкриється вікно Visual Basic. Натисніть на значок “Вікно властивостей” або скористайтеся комбінацією клавіш F4.

• Замініть значення параметра “Visible” на “xlSheetVisible”;

• Завершіть роботу з Visual Basic.

Отже, лист знову стало можливим отримати.

Сховання листа з використанням Visual Basic

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

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

Ось переписаний текст, зберігаючи його зміст:

Код:

Sub СховатиВсіОкрімАктивногоЛиста() Dim лист As Worksheet Для кожного листа У ЦьомуWorkbook.Worksheets Якщо лист.ім’я <> АктивнийЛист.ім’я Тоді лист.видимість = xlSheetHidden Наступний лист Кінець Sub

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

Ось адаптований код, який не дозволяє переглядати приховані аркуші.

Sub СховатиВсіКрімАктивногоАркуша() Dim аркуш As Worksheet For Each аркуш In ThisWorkbook.Worksheets If аркуш.Name <> ActiveSheet.Name Then аркуш.Visible = xlSheetVeryHidden Next аркуш End Sub

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

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

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

Sub ВідобразитиВсіЛисти() Dim ws As Worksheet Для кожного ws В ThisWorkbook.Worksheets ws.Visible = xlSheetVisible Наступний ws End Sub

Де саме потрібно розмістити всі ці коди, щоб усе функціонувало?

Інструкція поетапно:

• Натисніть на кнопку “Розробник”;

• Клацніть на іконку Visual Basic;

• У вікні клацніть правою кнопкою миші на будь-якому листі;

• “Вставити” -> “Модуль”;

Збережіть обсяг тексту, перепишіть його, щоб зберігся сенс, а текст став унікальним:

• Вставте необхідний код у відкрите вікно та закрийте Visual Basic.

Таким чином, ми розробили функцію. Ви маєте можливість виконати її через книгу макросів або просто клацнути на кнопку Run у Visual Basic. Існує безліч способів її запуску.

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