Скрыть листы по запросу

[RUBEY]

Есть большая книга из более чем 100 листов. Для удобства надо по выбору из выпадающего списка, в котором перечислены все имена листов, скрыть все листы кроме выбраного. Это будет намного удобней, чем листать всю книгу. Кроме того желетельно иметь кнопку для отображения всех листов книги. Если кто поможет, то буду чрезвычайно благодарен, так как своих знаний не хватает для такой реализации.
С уважением - Рубей.

[EducatedFool]

Может, так подойдёт?
Назначьте этим макросам кнопки на панели инструментов, или горячие клавиши.

Sub СкрытьВсеЛистыКромеАктивного()
    For Each sh In ActiveWorkbook.Worksheets
        sh.Visible = sh.Name = ActiveSheet.Name
    Next
End Sub

Sub ОтобразитьВсеЛисты()
    For Each sh In ActiveWorkbook.Worksheets: sh.Visible = True: Next
End Sub

[Maxx]

Я немного доработал предыдущий ответ. Посмотрите, может понравиться!

Назначте макросу какую-нибудь комбинацию клавиш, что бы можно было его запускать с текущего листа, только в этом случае при выборе "Скрыть все кроме активного", вы останетесь на этом же листе.

[EducatedFool]

Совет на будущее: удаляйте из своих файлов ссылки на всякие библиотеки, а то на некоторых компах Ваши макросы не заработают.
В данном файле была ссылка на компонент Ref Edit Control, который на моём компе изволил отсутствовать.
Из-за этого макросы не запускались. Но это всё мелочи.

Ну а так, в общем-то, неплохо.

Вот только это лишнее:

Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Name = "Список"
Range("A1").Select

Для того, чтобы скрыть или отобразить листы, уж точно не требуется создавать новый лист.

Кстати, выделять ячейки тоже совсем не обязательно.

Весь макрос "Выбор_Листа" можно заменить таким кодом:

Sub Выбор_Листа()
    For Each sh In ThisWorkbook.Worksheets
        UserForm1.ComboBox1.AddItem sh.Name
    Next
    UserForm1.Show
End Sub

[Maxx]

Вы ПРОФИ, а я новичок. Многого не знаю, ну а за:

Ну а так, в общем-то, неплохо.

спасибо. Старался!

удаляйте из своих файлов ссылки на всякие библиотеки, а то на некоторых компах Ваши макросы не заработают.
В данном файле была ссылка на компонент Ref Edit Control, который на моём компе изволил отсутствовать

про это я не вкурсе, и откуда надо удалять эти ссылки тоже не знаю, может подскажите?

Вот итоговый вариант:

[EducatedFool]

откуда надо удалять эти ссылки тоже не знаю, может подскажите?

В редакторе VBA жмём Tools - References
Появляется окно:




Убираете лишние галочки.
В данном случае достаточно оставить только эти:



В данном случае проблема была в том, что среди прочих была ссылка на компонент Ref Edit Control из Office 2007, который у меня не установлен. Для данного проекта этот компонент не нужен.

Вы ПРОФИ

Я не профи... Я не способен написать даже простейшую формулу

[RUBEY]

Последний вариант макроса выдает ошибку
CAN'T FIND PROJECT OR LIBRARY
И что-то он подозрительно короткий по тексту.
Рубей

[EducatedFool]

Последний вариант макроса выдает ошибку
CAN'T FIND PROJECT OR LIBRARY

Решение проблемы описано в предыдущем посте.

И что-то он подозрительно короткий по тексту.

Можно ещё короче:
(кнопки ОК и ОТМЕНА убрал, так как не понял, для чего они предназначены)
При выборе имени листа в выпадающем списке этот лист автоматически активируется.

[Maxx]

Конечно же Ваш код компактней, но зато он не позволяет выбрать из списка скрытый лист

[viter.alex]

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

Конечно же Ваш код компактней, но зато он не позволяет выбрать из списка скрытый лист

Нужно придумать метод, чтобы получать все имена листов при загрузке из в ComboBox вне зависимости от состояния видимости.
Правда, как потом быть с активным листом, скрывать его или оставлять?

Кстати, Maxx, а в какой версии офиса идет работа? Можно сделать панель инструментов (для 2003) или динамическое меню (для 2007)