Макрос excel для скрытия листа

Суперскрытый лист

Иногда некоторые листы в книге приходится скрывать от глаз пользователей. Классический способ предполагает скрытие листа через меню Формат — Лист — Скрыть или правой кнопкой по ярлычку листа — Скрыть (Hide):

Проблема в том, что пользователь, зайдя в меню Формат — Лист — Отобразить или щелкнув правой кнопкой мыши по ярлычку любого листа и выбрав Показать (Unhide), будет видеть имена скрытых листов и понимать, что часть информации от него скрыта:

Поэтому лучше сделать так, чтобы пользователь и не догадывался о присутствии в книге каких-то скрытых листов. Для этого открываем редактор Visual Basic:

• в Excel 2003 и старше — выбрав в меню Сервис — Макрос — Редактор Visual Basic (Tools — Macro — Visual Basic Editor)
• в Excel 2007 и новее — нажав на кнопку Редактор Visual Basic (Visual Basic Editor) на вкладке Разработчик (Developer) или нажав ALT+F11 

Ищем на экране вот такое окно:

Если его не видно, то можно его отобразить через меню View — Project Explorer (верхняя часть) и View — Properties Window (нижняя часть).

В верхней части на «дереве» находим и выделяем наш лист (на картинке — Лист1), а в нижней части находим свойство Visible (в конце списка) и делаем его xlSheetVeryHidden.

Вуаля! Теперь увидеть этот лист и узнать о его существовании можно только в редакторе Visual Basic и ни в каких окнах и менюшках Excel он отображаться не будет. Меньше знаешь — крепче спишь.

Ссылки по теме

• 4 уровня защиты в файлах Excel
• Скрытие листов оптом с помощью надстройки PLEX

В статье «Как скрыть /отобразить страницу в Excel» мы рассмотрели как вручную открыть/ скрыть лист книги, все то же самое можно сделать и написав простой VBA макрос:

Sub Макрос1 ()
ActiveWindow.SelectedSheets.Visible = False 'Прячем активный лист
Sheets ("Лист2").Visible = False 'Прячем лист с именем "Лист2", можно аналогично отобразить лист обращаясь к нему по имени, но с параметром 'true'
End Sub

Лист так же можно скрыть и вручную из редактора VBA. Зайдем в редактор (Alt+F11) и кликнув на соответствующий лист, в настройках в параметре Visible  выберем интересующий нас статус видимости листа, в том числе статус «VeryHidden», который позволит убрать лист из списка скрытых листов (список вызывается из самого документа Excel при клике правой кнопкой мыши по названию листа):

Будем благодарны, если Вы нажмете +1 и/или Мне нравится внизу данной статьи или поделитесь с друзьями с помощью кнопок расположенных ниже.

Sub Hide_Sheets()
    Dim ws, aSheets
    aSheets = Array("Лист1", "Списки", "Лист2") 'через запятую перечисляем листы для скрытия(обязательно в кавычках)
    For Each ws In aSheets
        ActiveWorkbook.Sheets(ws).Visible = xlSheetVeryHidden
        'отобразить – xlSheetVisible; сделать лист просто скрытым -  xlSheetHidden
    Next wsSh
End Sub

Sub Hide_All_Sheets()
    Dim wsSh As Object
    For Each wsSh In ActiveWorkbook.Sheets
        If wsSh.Name <> "Видимый" Then wsSh.Visible = xlSheetVeryHidden
        'отобразить – xlSheetVisible; сделать лист просто скрытым -  xlSheetHidden
    Next wsSh
End Sub

Статья помогла? Сделай твит, поделись ссылкой с друзьями!

Skip to content

Sub SkritVseKromeAktivnogoLista()
'Шаг 1: Объявляем переменную
Dim ws As Worksheet
'Шаг 2: Запускаем цикл по всем рабочим листам
For Each ws In ThisWorkbook.Worksheets
'Шаг 3: Сравниваем имя каждого листа с активным
If ws.Name <> ThisWorkbook.ActiveSheet.Name Then
'Шаг 4: Скрываем лист, если не совпадают
ws.Visible = xlSheetHidden
End If
'Шаг 5: Переходим на следующий рабочий лист
Next ws
End Sub

Довольно часто при работе с таблицами в Excel один или несколько листов могут содержать важную информацию, а другие – дополнительную. Как первые, так и вторые иногда требуется скрыть – для обеспечения защиты указанных данных или просто чтобы не портить общий вид документа. Далее расскажем, как это сделать.

Читайте также: Что делать, если пропали листы в Excel

Обычное скрытие листов в Эксель

Решить озвученную в заголовке статьи задачу можно одним из двух способов, дополнительно имеется возможность скрытия всей книги. Проблема в том, что как первый, так и второй имеют общий недостаток – точно таким же образом, как выполняется скрытие листа, можно его снова отобразить. То есть для защиты данных от посторонних такой метод не подходит. Для этих целей следует обратиться к изначально скрытым из приложения средствам разработчика, о чем мы расскажем во второй части статьи, или установить пароль на всю книгу — файл Microsoft Excel, о чем мы ранее писали в отдельной статье.

Подробнее: Как поставить пароль на книгу Эксель

Способ 1: Контекстное меню

Наиболее простой и удобный в своей реализации метод скрытия листа в книге Excel заключается в использовании контекстного меню. Кликните правой кнопкой мышки (ПКМ) на ярлыке, который требуется убрать из виду, и выберите пункт «Скрыть».

Совет: Если требуется скрыть более одного листа, выделите их с помощью клавиш – зажмите «SHIFT» и кликните левой кнопкой мышки (ЛКМ) по первому и последнему для указания нескольких смежных листов (диапазона) или зажмите «CTRL» и кликайте ЛКМ для указания несмежных элементов. Сделав это, вызовите контекстное меню и выберите соответствующий пункт.

Для отображения скрытых таким образом листов на любой из ячеек кликните правой кнопкой мышки и выберите пункт «Показать», затем, если их более одного, выберите нужное наименование в открывшемся окошке и нажмите «ОК».

Способ 2: «Формат»

Достичь аналогичного результата можно и несколько иначе, обратившись к элементам управления ячейками во вкладке «Главная». Для этого перейдите на тот лист, который требуется скрыть, разверните меню кнопки «Формат», наведите указатель курсора на пункт «Скрыть или отобразить» и выберите соответствующую опцию.

Как и в предыдущем способе, таким образом можно скрыть несколько смежных или, наоборот, несмежных листов – для этого сначала выделите их ярлыки, используя обозначенные выше клавиши. Если же потребуется снова сделать их видимыми, просто воспользуйтесь соответствующим пунктом в меню «Формат», а затем выберите нужный лист в открывшемся диалоговом окне.

Способ 3: Скрытие книги

Помимо одного или нескольких листов, в Excel можно скрыть сразу их все, то есть книгу целиком. Для этого перейдите во вкладку «Вид» и нажмите на кнопку «Скрыть», расположенную в группе инструментов «Окно».

Если содержимое книги снова потребуется сделать видимым, в этой же вкладке нажмите на ставшую активной кнопку «Отобразить».

Полное скрытие листов в Эксель (суперскрытые)

Как мы уже обозначили выше, проблема обычного скрытия листов в Excel заключается в том, что отобразить их сможет каждый, у кого есть доступ к документу. Если же данное действие выполняется не только для наведения эстетической красоты в книге, но и для защиты данных, потребуется выполнить несколько дополнительных действий, предварительно активировав в программе режим разработчика, если этого не было сделано ранее.

1. Откройте меню «Файл» и перейдите к разделу «Параметры».



2. В появившемся окне нажмите «Настроить ленту» и установите галочку в чекбоксе пункта «Разработчик», расположенном в блоке «Основные вкладки». Нажмите «ОК» для подтверждения внесенных изменений и закрытия настроек.
   

   Читайте также: Включение макросов в Эксель
3. Перейдите в появившуюся на ленте вкладку «Разработчик» и нажмите в ней на первую кнопку – «Visual Basic».



4. В открывшемся редакторе Microsoft Visual Basic, в его левой части, будет находиться два дополнительных окна. В первом найдите и выделите наименование листа, который требуется сделать полностью невидимым, – он может быть как уже скрытым, так и еще нет. В таблице, которая расположена во втором окне, измените параметр «Visible» на «2 — xlSheetVeryHidden», выбрав его из выпадающего списка.



5. Закройте окно Visual Basic. С этого момента скрытый таким образом лист станет суперскрытым – его нельзя будет показать через контекстное меню или кнопку «Формат», а узнать о его существовании можно будет только в редакторе.



Если потребуется снова сделать лист скрытым, но доступным для отображения, или полностью видимым, повторно откройте окно Microsoft Visual Basic и измените в нем параметр «Visible» на «0 — xlSheetHidden» или «1 — xlSheetVisible» соответственно.



Читайте также: Снятие защиты с файла Майкрософт Эксель

Мы рассмотрели то, как скрыть один или несколько листов в Microsoft Excel, а также то, как сделать их суперскрытыми, действительно спрятав от посторонних.