Средства разработки приложений

Подавление "горячих" клавиш.


Q:Как подавить доступ по "горячим" клавишам, имеется ввиду  предопределенные в Excel клавиши типа Ctrl-O и т.д.?

A:Вот  малюсенький исходник на Excel VB, который решает такую проблему. :-)

Public Sub Auto_Open()
' Overrride standard accelerators
  With Application
    .OnKey "^o", "Dummy"
    .OnKey "^s", "NewAction"
    .OnKey "^р", ""             ' Kill hotkey !
  End With
End Sub

' -----
Public Sub Dummy()
   MsgBox "This hotkey redefined!"
End Sub

' -----
Public Sub NewAction()
  SendKeys "^n"   ' Press <CTRL>+<s> for create new file
                  ' instead of <CTRL>+<n> !
End Sub

 Hint: Отлажено в MS Excel '97 !  



Содержание раздела