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

[viter.alex]

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

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

Нужно придумать метод, чтобы получать все имена листов при загрузке из в ComboBox вне зависимости от состояния видимости.
Правда, как потом быть с активным листом, скрывать его или оставлять?
Добавлено чуть позже
Вот так это можно сделать для 2007, только в 2003 работать не будет. Даже файл не откроет. Я сделал на скорую руку с кнопкой, а можно сделать динамическое меню, которое будет формироваться каждый раз при открытии файла в зависимости от количества листов в нем.

[Maxx]

Я работаю в 2007.

Кстати, EducatedFool, я обнаружил интересную вещь - Листы с диаграммами почему-то не скрываются?

[viter.alex]

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

Я работаю в 2007…

Это хорошо. Тогда меню я уже почти сделал, только я не пойму как работает эта строка

  For Each sh In ActiveWorkbook.Worksheets: sh.Visible = sh.Name = control.Tag: Next

[EducatedFool]

Строка

sh.Visible = sh.Name = ActiveSheet.Name

работает так:

Проверяется условие sh.Name = ActiveSheet.Name
Результат проверки этого условия (True или False) присваивается свойству sh.Visible

То есть, если лист активный (sh.Name = ActiveSheet.Name), то он остаётся видимым,
иначе он скрывается

[viter.alex]

Вот с меню для 2007 Excel. Выглядит так:

Если файл сохранить как шаблон и поставить в автозагрузку, то это будет доступно для всех документов.
Диаграммы не прячет, т.к. в макросе прописаны только листы, для диаграмм нужно отдельную строку писать. Это EducatedFool специалист. Тогда в меню можно будет добавить еще и диаграммы.

[viter.alex]

Доделал меню. Теперь просто нужно выбрать имя листа. Если он виден, то все остальные листы будут закрыты, а он сделан активным. Если он не виден, то активный лист будет закрыт, а выбранный активирован.
Для 100 пустых листов работает шустро, а вот если листы заполненные, то страшно подумать…
Выглядит так:

[Maxx]

Классный инструмент получился!

Только есть косячки:
1. Кнопка "Скрыть все, кроме активного" - не работает;
2. если я нахожусь (например на Листе №65) и выбираю из списка (например Лист №94), то прога скрываает все листы и оставляет меня все-таки на листе №65, а не №94

И конечно было бы совсем идеально, если бы подменю "Листы в данном файле" было бы выпадающим.

Попробую поколдовать, может чего и смогу сделать, но все же пока и Ваши коды и, тем более коды EducatedFool, для меня еще загадочны :-)

[viter.alex]

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

…Только есть косячки:…

Твоя правда. Добавь эту строку в процедуру Sub HideAllButCurrent(control As IRibbonControl) перед End Sub

For Each sh In ActiveWorkbook.Worksheets: sh.Visible = sh.Name = ActiveSheet.Name: Next

И замени процедуру Sub ShowThisSheet(control As IRibbonControl) на эту

Sub ShowThisSheet(control As IRibbonControl)
  If ActiveWorkbook.Sheets(control.Tag).Visible Then
    ActiveWorkbook.Sheets(control.Tag).Activate
    Dim sh As Object
    On Error Resume Next
    For Each sh In ActiveWorkbook.Worksheets: sh.Visible = sh.Name = ActiveSheet.Name: Next
  Else
    ActiveWorkbook.Sheets(control.Tag).Visible = True
    ActiveSheet.Visible = Not ActiveWorkbook.Sheets(control.Tag).Visible
  End If
End Sub

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

…И конечно было бы совсем идеально, если бы подменю "Листы в данном файле" было бы выпадающим…

Не понял? Для каждого открытого файла выпадающее меню с листами? Не советую! Будет тормозить. Лучше это делать только для активного файла.

[Maxx]

Да, и все-таки я уже начинаю чего-то соображать.
Пока Вы писали предыдущее сообщение, я уже все изменил именно так, как Вы указали

И все же было бы не прлоха, если бы EducatedFool подсказал как спрятать диаграммы???


Вот Upgrade:

P.S. Теперь можно USERFORM1 удалить!!!

[Maxx]

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