Подавление "горячих" клавиш.
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 !
Forekc.ru
Рефераты, дипломы, курсовые, выпускные и квалификационные работы, диссертации, учебники, учебные пособия, лекции, методические пособия и рекомендации, программы и курсы обучения, публикации из профильных изданий