Назначить клавишам свой собственный макрос- Basic(Бейсик)

Вариант. Разместите в любом стандартном модуле нужной рабочей книги:

Private Sub Auto_Open()
    Application.OnKey Key:="+^%{F1}", Procedure:="MessageBox"
    ' Сочетание клавиш SHIFT + CTRL + ALT + F1
End Sub
 
Private Sub MessageBox()
    MsgBox "Здесь могла быть Ваша реклама ..."
End Sub
или:

Private Sub Auto_Open()
    Application.OnKey Key:="^c", Procedure:="NewName"
    ' Сочетание клавиш CTRL + C (c)
End Sub
 
Private Sub NewName()
    Application.Dialogs(xlDialogWorkbookName).Show
End Sub
Вернуть всё обратно можно выполнив единственную инструкцию:

Application.OnKey Key:="^c"
А вот так можно заблокировать выполнение операции, связанной с нажатием стандартных горячих клавиш:

Application.OnKey Key:="^c", Procedure:=""
Вариант. Если Вас устроит сочетание таких клавиш, как CTRL + r или CTRL + SHIFT + R, то создать горячие клавиши для макроса можно и вручную. Для этого, при записи макроса в стандартном диалоговом окне Запись макроса в поле, которое размещено под надписью Сочетание клавиш: необходимо ввести нужную букву.

Программно это может выглядить так :

Sub Auto_Open()
    Application.MacroOptions Macro:="Printers", _
    HasShortcutKey:=True, ShortcutKey:="Q"
    ' Сочетание клавиш CTRL + SHIFT + Q (q)
End Sub
 
Sub Printers()
    Application.Dialogs(xlDialogPrinterSetup).Show
End Sub