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

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

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