Отслеживание нажатий в ribbon

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

Отслеживание нажатий в ribbon (Иное/Other)

SkyPro

Дата: Понедельник, 08.12.2014, 12:36 | Сообщение № 1

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

Ранг: Старожил

Сообщений: 1206

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

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

2010

Друзья, добрый день!
Подскажите, пожалуйста, как можно отследить нажатия на ленте? Хочу собирать статистику по использованию всех нажатых кнопок.

skypro1111@gmail.com

Ответить

Саня

Дата: Понедельник, 08.12.2014, 21:25 | Сообщение № 2

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

Ранг: Ветеран

Сообщений: 1068

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

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

XL 2016

в надстройке в xml-потрохах пишешь:
<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui" >
   <commands>
   <command idMso="Copy" onAction="MyCopy"/>
   <command idMso="ApplicationOptionsDialog" enabled="false"/>
  </commands>
</customUI>

[vba]

Код

Sub MyCopy(control As IRibbonControl, ByRef cancelDefault)
      If Лист1.CheckBox1.Value Then    'флажок поставлен - показываем сообщение
          cancelDefault = True
          MsgBox "Копировать нельзя!!!"
      Else    'иначе команда по умолчанию
          cancelDefault = False
      End If
End Sub

[/vba]

и это только на одну команду на ленте: Копировать
"Ctrl+C" она не блокирует - пропишешь OnKey при загрузке/открытии

К сообщению приложен файл: 1286384.xlsm (18.9 Kb)

Ответить

SkyPro

Дата: Вторник, 09.12.2014, 00:40 | Сообщение № 3

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

Ранг: Старожил

Сообщений: 1206

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

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

2010

Саня, Отличный пример!
Благодарю.

[p.s.]Нашел список всех контролов.

К сообщению приложен файл: ExcelControls.xlsb (77.3 Kb)

skypro1111@gmail.com

Ответить

Отслеживание нажатий в ribbon (Иное/Other)

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