Показать только лист, выбранный в оглавлении, остальные скрыть

[Alex_ST]

Тут я взялся дополировывать макрос для создания в активной книге листа "<<ОГЛАВЛЕНИЕ>>" с гиперссылками на все её листы.
При выборе гиперссылки на лист из оглавления выбранный лист и "<<ОГЛАВЛЕНИЕ>>" остаются видимыми, а все другие листы скрываются.
При активизации листа "<<ОГЛАВЛЕНИЕ>>" все остальные листы книги скрываются.
На листе "<<ОГЛАВЛЕНИЕ>>" добавлен пункт-гиперссылка "Все листы", позволяющий при его активизации сделать видимыми все листы книги.

При необходимости название создаваемого листа "<<ОГЛАВЛЕНИЕ>>" и адрес ячейки начала оглавления на нём вводятся в первых строках кода процедуры СОЗДАТЬ_ОГЛАВЛЕНИЕ

Код может функционировать самостоятельно как надстройка - создавать листы "<<ОГЛАВЛЕНИЕ>>" в любой активной книге.

Вроде, всё работает как надо.
Только почему-то приходится два раза запускать макрос СОЗДАТЬ_ОГЛАВЛЕНИЕ для создания оглавления в новой книге:
- за первый запуск создаётся лист "<<ОГЛАВЛЕНИЕ>>" и код обработки событий
- за второй - прописываются гиперссылки.

НИЧЕГО НЕ ПОНИМАЮ! Пол-дня бьюсь...

[Alex_ST]

Дмитрий (The_Prist) подсказал в чём дело - рановато использовал

With ActiveWorkbook.Worksheets(shContent)

, а когда листа не было в книге, то и ячейки не было куда писАть...
Переделал код. Не могу проверить - комп заглючил - постоянно Ёксель падает.
Перегружался - не помогло...
Может кто-нибудь проверить, создаётся ли лист <<ОГЛАВЛЕНИЕ>> и работают ли на нём гиперссылки?

[Hugo121]

Алексей, у меня тоже Экс2000 упал...
Эта строка не идёт:

   oSh.CodeModule.InsertLines oSh.CodeModule.CountOfDeclarationLines + 1, sCode

Это на первом заходе. Если гнать по F8, то просто вылетает в дебуг, но лист уже создан, и потом по второму заходу всё создаётся.
Только вот "все листы" не работает как нужно, открывает только первый лист.

[nilem]

<<ОГЛАВЛЕНИЕ>> создается, гиперссылки работают.
Рацпредложение : когда перешли на Лист1 (2, 3,...) текст кнопки изменить на "Перейти к оглавлению" (не "Создать...")
Е2010.

[Alex_ST]

nilem,
вы немного не поняли: кнопочки на листах - просто для упрощения вызова макроса при тестировании.
По моему замыслу сам макрос должен сидеть в personal.xls (или в надстройке), а для его вызова на одной из панели инструментов будет кнопочка (наверное, в меню Сервис).
Именно поэтому там везде ActiveBook а не ThisWorkbook.

Hugo121,
а в Безопасности доступ к элементам VBProgect разрешён?

[Hugo121]

Так в 2000 вроде такого не было? Сейчас уже проверить не могу, дома 2007.
Сейчас проверил дома - лист создаётся, ссылки не работают.

[Alex_ST]

а после того, как лист создался, попробуйте запустить макрос СОЗДАТЬ_ОГЛАВЛЕНИЕ ещё раз. Код обработки проопишется на лист оглавления и всё заработает.
Вот "дополированный" пример: