Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Скрыть/показать вкладку (Tab) на Ленте (Ribbon)
 
#1
29.12.2016 14:06:10
Уважаемые коллеги!
Сделал свою надстройку с некоторыми функциями и поместил их на отдельную вкладку, например с именем " Tender ".
Эти функции должны работать только в определенных файлах - там где есть определенный лист, например с именем "Tenders". В других файлах эти функции работать НЕ будут.
Вопрос: как бы мне убирать/скрывать/удалять (?) эту вкладку " Tender " там, где она не нужна и, наоборот, показывать там где нужно?

Заранее спасибо за подсказки/идеи/наводки.

PS
всех с наступающим Новым годом и Рождеством! :)
 
 
 
#2
29.12.2016 14:24:35
Доброе время суток
В ribbon xml создаёте ссылку на обработчик события onLoad в надстройке макрос для получения объекта интерфейса IRibbonUI. Сохраняете его в переменной.
В ribbon xml создаёте ссылку на обработчик события visible вкладки в надстройке макрос для обработки его вызова, проверающий есть ли в активной книге лист " Tender " (перед этим проверьте есть ли вообще книги ;) )
В надстройке создаёте обработчик событий приложения, например в модуле эта книга
Private WithEvents xlApp As Application
Настраиваете для него обработчик события WorkbookActivate.
В этом обработчике запускаете метод InvalidateControl ранее сохранённой переменной IRibbonUI и передаёте Id объекта вкладки.
Так как-то, если кратенько.

С наступающими и вас!
 
 
 
#3
29.12.2016 14:28:37
Либо, как вариант:
в .hml добавляете
Код
<tab id="id" label="Tender" getVisible="GetVisible">
в код настройки:
Код
Sub GetVisible(control As IRibbonControl, ByRef visible)
    For Each sh In ActiveWorkbook.Sheets
        If sh.Name = "Tenders" Then
            visible = True
            Exit For
        Else
            visible = False
        End If
    Next
End Sub

p.s. с наступающим)
Изменено: heso - 29.12.2016 14:33:10
 
 
 
#4
29.12.2016 16:06:00
Андрей VG, heso
Спасибо за подсказки!
Чего-то я туплю - не получецца ничё :(
То объекта интерфейса IRibbonUI не сохраняется, то метод InvalidateControl  не вызывается ...
Но разберусь.

еще раз спасибо
 
 
 
#5
29.12.2016 17:38:53
Цитата
heso написал:
как только добавляю getVisible
Код
<tab id="tabTerderMain" label="TENDERS" visible="true" getVisible="getVisible">

так сразу перестает вообще показывать вкладку :(

а если убираю getVisible, то все ОК  :idea:
Код
<tab id="tabTerderMain" label="TENDERS" visible="true" > <!-- getVisible="getVisible" -->

есть идеи - в чём дело?
 
 
 
#6
29.12.2016 17:45:43
Цитата
Alex65 написал: getVisible
Я тоже ничего не вижу :(  Дистанционный просмотр кода сломался, увы.
 
 
 
#7
29.12.2016 18:01:53
Цитата
Андрей VG написал: Дистанционный просмотр кода сломался
Код
Public oRibbon As IRibbonUI
Sub OnRibbonLoad(ByRef iRibbon As IRibbonUI)
    Set oRibbon = iRibbon
End Sub

oRibbon - не запоминается - Nothing
:(
 
 
 
#8
29.12.2016 19:16:23
Цитата
Alex65 написал:
oRibbon - не запоминается
Значит у вас в процессе возникает ошибка и oRibbon отваливается.
Файлик бы посмотреть
 
 
 
#9
29.12.2016 19:40:59
Код
<tab id="tabTerderMain" label="TENDERS" visible="true" getVisible="getVisible">
Для начала удалите visible="true".
Затем..в vba-коде надстройки вы вставили код, что в сообщении #3?

И все таки пример покажите, да.
 
 
 
#10
29.12.2016 20:12:50
Спасибо
завтра с работы все пришлю
 
 
 
#11
30.12.2016 01:17:50
Цитата
heso написал: И все таки пример покажите, да
Покажу :)
Ходите по листам-вкладки меняются.
Допилите под себя
 
 
 
#12
30.12.2016 08:55:14
Doober! Спасибо! Допилю уж :)

С наступающими Новым годом и Рождеством!
Желаю Успехов и новых творческих находок!  :D
 
 
 
#13
30.12.2016 13:49:42
Спасибо всем кто откликнулся!
Особое спасибо Doober - всё получилось :)

Тема закрыта
 
 
 
Страницы: 1
Читают тему
Наверх