Disable Ctrl D for particular workbook

Question

How to disable the CTRL+D shortcut for a particular workbook? I can disable Macro but macros will affect all the excel workbooks.

Answer 1

When you click CTRL+D, it will now check the workbook's name; if it is Book1, nothing will happen; if not, the default fill down event will take place.

Sub Sample()
Application.OnKey "^d", "CheckWorkbook"
End Sub

Sub CheckWorkbook()
If ActiveWorkbook.Name = "Book1" Then
    Exit Sub
Else
    Selection.FillDown
End If
End Sub

Or

Sub Sample()
Application.OnKey "^d", "CheckWorkbook"
End Sub

Sub CheckWorkbook()
If ActiveWorkbook.Name <> "Book1" Then
    Selection.FillDown
End If
End Sub