'в модуль книги
'подменяем стандартное сочетание
Private Sub Workbook_Open()
Application.OnKey "^d","DisableKeybKeyword"
End Sub
'чтобы после закрытия надстройки сбросить
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.OnKey "^d"
End Sub
'чтобы при установке надстройки отключить сочетания
Private Sub Workbook_AddinInstall()
Application.OnKey "^d", "DisableKeybKeyword"
End Sub
'чтобы при отключении надстройки вернуть сочетания
Private Sub Workbook_AddinUninstall()
Application.OnKey "^d"
End Sub
'в стандартный модуль
Sub DisableKeybKeyword()
End Sub