Подавление "горячих" клавиш.
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 !
