excel - 为特定工作簿禁用 Ctrl+D

Question

如何禁用特定工作簿的CTRL+D快捷方式？我可以使用宏禁用，但宏会影响所有 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