Команда OnKey позволяет отключить любую клавишу или комбинацию клавиш или заставить эту клавишу делать что-то другое.
Этот макрос будет выполнен автоматически при открытии рабочей книги, содержащей его.
Sub Auto_Open()
Application.OnKey "{F9}", "HandleF9"
Application.OnKey "^{F9}", "HandleCtrlF9"
Application.OnKey "+{F9}", "HandleShiftF9"
End Sub
Следующие процедуры будут выполняться вместо Calculate.
Sub HandleF9()
Debug.Print "F9 clicked"
End Sub
Sub HandleCtrlF9()
Debug.Print "Ctrl+F9 clicked"
End Sub
Sub HandleShiftF9()
Debug.Print "Shift+F9 clicked"
End Sub
См. Справку OnKey для получения дополнительной информации.