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

RU.EXCEL

🕛 04.07.2006, 15:26

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

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

P

ublic 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 !