Версия для печати

Как сделать лист очень скрытым

Что умеет Excel

 

Если Вы хотите скрыть лист со всем его содержимым от посторонних любопытных глаз, то Вы можете скрыть его из контекстного меню листа(это для счастливых обладателей 2007 Excel. Подробнее об этом здесь). Но при использовании данного метода необходимо защитить книгу, иначе отобразить скрытые листы сможет каждый. А что делать, если книгу не надо защищать? Что если необходимо оставить пользователям возможность работы со структурой книги, например, добавлять листы? А лист скрыть надо. Здесь на помощь придет VBA. Притом не обязательно иметь какие-то глубокие познания в программировании. Просто заходим в редактор VBA(Alt+F11) и щелкаем по листу в окне объектов(если не отображается то — Ctrl+R или View-Project Explorer). Подробнее про модули листов и как их найти читайте здесь. После того как выбрали необходимый лист в Окне свойств — Properties Window(если не отображается:F4 или View-Properties Window) находим свойство Visible и назначаем ему значение xlSheetVeryHidden(рис.1).

Скрыть лист через VBAрис.1

После этого для отображения листа необходимо будет обязательно зайти в редактор VBA, а простым методом отобразить не получиться. И книгу защищать не надо. Что нам и было необходимо.

Чтобы затем отобразить этот лист необходимо свойству Visible задать значение — xlSheetVisible.

Скрыть все листы в книге, кроме листа с именем «Видимый» можно следующим макросом:

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
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

Также см.:
Как сделать лист скрытым?



Поддержать автора сайта
Поделиться ссылкой
  1. Пока что нет комментариев.

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