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

6794
