Не показывать скрытые листы vba 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

From the Visual Basic for Applications help:

When an object is hidden, it’s removed from the screen and its Visible property is set to False. A hidden object’s controls aren’t accessible to the user, but they are available programmatically to the running application, to other processes that may be communicating with the application through Automation, and in Windows, to Timer control events.

Not much help there I’m afraid, and I couldn’t find much else through Google.

As you said yourself, the Select method and Selection Property don’t work on a hidden Worksheet, they should work on a hidden Workbook though. (Please correct me if I’m wrong.) In general however, it’s not always all that efficient to select ranges in worksheets anyway, you are better off working with the Range property (which does work on a hidden worksheet).

EDIT:

The following code will change the color of A1:A8 to Cyan even when the Worksheet is not visible:

Dim book2 As Workbook
Set book2 = Workbooks.Open("C:Book2.xls")

book2.Worksheets("Sheet1").Visible = False
book2.Windows(1).Visible = False

With book2.Worksheets("Sheet1").Range("A1:E8").Interior
    .ColorIndex = 8
    .Pattern = xlSolid
    .PatternColorIndex = xlAutomatic
End With

book2.Windows(1).Visible = True
book2.Worksheets("Sheet1").Visible = True

В этой статье представлены несколько способов шаг за шагом показать все скрытые листы и рабочие листы в Excel.

1. Показывать все скрытые листы по одному в Excel
2. Показать все скрытые листы с помощью кода VBA
3. Отобразить все скрытые рабочие листы с помощью Kutools for Excel одним щелчком мыши
4. Показать все скрытые листы с помощью функции «Переключить видимость скрытых листов»
5. Показать все очень скрытые рабочие листы с помощью Kutools for Excel

Показывать все скрытые листы по одному в Excel

Показать все скрытые листы с помощью кода VBA

Sub UnhideAllSheets()
	Dim ws As Worksheet

	For Each ws In ActiveWorkbook.Worksheets
		ws.Visible = xlSheetVisible
	Next ws

End Sub

Отобразить все скрытые рабочие листы с помощью Kutools for Excel одним щелчком мыши

Показать все скрытые листы с помощью функции «Переключить видимость скрытых листов»

Показать все очень скрытые рабочие листы с помощью Kutools for Excel

Отобразить все скрытые рабочие листы с помощью Kutools for Excel одним щелчком мыши

Статьи по теме

• Скрыть другие листы
• Скрыть другие книги
• Показать все скрытые книги
• Показать скрытые диапазоны (столбцы и строки)

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

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

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

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