Гиперссылка на скрытый лист

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Гиперссылка на скрытый лист (Макросы/Sub)

Leojse

Дата: Вторник, 28.12.2021, 12:59 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 148

Репутация: 1 ±

Замечаний: 0% ±

2010/2013

Добрый день, уважаемые форумчане!
Помогите, пожалуйста, со следующим вопросом.
Есть файл с несколькими листами. На главной странице сделаны гиперссылки на каждый лист. Гиперссылки прописаны в объектах рисования (автофигуры). На каждом листе есть гиперссылка на главную страницу.
Хотелось бы перемещаться по листам только по гиперссылкам, а все листы, кроме активного, были бы скрыты.
Задавал этот вопрос на форуме: https://www.planetaexcel.ru/
Очень похожая тема: www.planetaexcel.ru
Результат похожей темы выше:
[vba]

Код

Private Sub Workbook_SheetFollowHyperlink(ByVal sh As Object, ByVal Target As Hyperlink)
If Target.Address <> "" Then Exit Sub 'внешняя гиперссылка
Range(Target.SubAddress).Parent.Visible = xlSheetVisible: sh.Visible = xlSheetHidden
End Sub

[/vba]
Но код не отрабатывает, когда гиперссылки прописаны в автофигурах.
Предложенный вариант по ссылке выше не совсем подходит, так как автофигур больше 100
Помогите, пожалуйста, найти другое решение.

К сообщению приложен файл: 1632276.xls (31.5 Kb)

Ответить

Nic70y

Дата: Вторник, 28.12.2021, 13:48 | Сообщение № 2

Группа: Друзья

Ранг: Экселист

Сообщений: 8754

Репутация: 2270 ±

Замечаний: 0% ±

Excel 2010

Файл - Параметры - Дополнительно
Показать параметры для следующей книги:
снять флажок с Показывать ярлыки листов

скрывать листы не нужно, макрос не нужен

ЮMoney 41001841029809

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Гиперссылка на скрытый лист (Макросы/Sub)

Страница 1 из 1
1