Question

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

对特定工作簿禁用Ctrl + D.

1 个答案: