Сделать скрытыми все листы Excel

[Tavrida]

Здравствуйте, уважаемые формучане..
Пожалуйста подскажите, можно ли в MS EXCEL скрыть ВСЕ листы рабочей книги?

[EducatedFool]

Да, можно.
Запустите этот макрос:

Sub test()
    ThisWorkbook.IsAddin = True
End Sub

Для отображения всех листов служит команда ThisWorkbook.IsAddin = false
(это сработает только в том случае, если листы скрывались при помощи ThisWorkbook.IsAddin = True)

[Tavrida]

Огромное спасибо, разобралась

[chaostt]

Сообщение от EducatedFool

Да, можно.
Запустите этот макрос:

Sub test()
    ThisWorkbook.IsAddin = True
End Sub

Для отображения всех листов служит команда ThisWorkbook.IsAddin = false
(это сработает только в том случае, если листы скрывались при помощи ThisWorkbook.IsAddin = True)

А как скрыть выборочно???
Заранее спасибо)

[EducatedFool]

Сообщение от chaostt

А как скрыть выборочно???

Очень просто.
Перебираем все листы в цикле, и при выполнении нужного условия скрываем лист:

Sub test()
    Dim sh As Worksheet
    For Each sh In ThisWorkbook.Worksheets
        If sh.Name Like "Лист*" Then sh.Visible = xlSheetHidden
    Next sh
End Sub

Только в этом случае надо обязательно контролировать, чтобы хотя бы один лист в книге оставался видимым.

[chaostt]

Спасибо большое!! оперативно отвечаете)

[X@ndr]

Sub test()
    Dim sh As Worksheet
    For Each sh In ThisWorkbook.Worksheets
        If sh.Name Like "Лист*" Then sh.Visible = xlSheetHidden
    Next sh
End Sub

Не скрывает.

Мне надо скрыть один лист, но я им пользуюсь через форму VBA.
Подскажите как мне это сделать.

[mchip]

Помести программу test() в модуль ...

[X@ndr]

Зачем???
я не так выразился....
скрывать то она скрывает, а вот моя формочка работать отказывается когда этот лист скрыт. Записать везде код открытия и скрытия листа или всетаки есть код который мне поможет?

[mchip]

Скорей всего в программе идут ссылки на активный лист, а когда лист скрыт он не может быть активным.