禁用特定工作簿的Ctrl + D

如何禁用特定工作簿的CTRL + D快捷方式？ 我可以禁用macros的，但macros会影响所有的Excel工作簿。 我试过了，

Sub diableCtrlD() Application.OnKey "^d", "" End Sub 

这只是工作正常，但它适用于所有的工作簿。

我只想禁用一个特定的文档/工作簿。 我怎么做？

Answer 1

这将使得当你按CTRL + D时它将检查工作簿的名字，它的工作簿是Book1它不会做任何事情，否则它会做默认的填充事件。

 Sub Sample() Application.OnKey "^d", "CheckWorkbook" End Sub Sub CheckWorkbook() If ActiveWorkbook.Name = "Book1" Then Exit Sub Else Selection.FillDown End If End Sub 

要么

 Sub Sample() Application.OnKey "^d", "CheckWorkbook" End Sub Sub CheckWorkbook() If ActiveWorkbook.Name <> "Book1" Then Selection.FillDown End If End Sub