Excel VBA-如何在Excel VBA中引用工作簿内置的文档属性？

Question

我正在构建其中ctl+D被停用的宏工作簿。
现在，问题是 -当该宏工作簿仍处于打开状态时打开另一个工作簿时，另一个工作簿中的ctl+D也将被禁用，因为这是应用程序级别的设置。 我想只在宏工作簿中限制禁用ctl+D

为此，我可以在代码中添加一个条件，以在禁用ctl+D之前检查工作簿名称。 但是，用户将其保存到桌面后，有90％的机会更改工作簿的名称。

有没有一种方法可以使用Workbook内置属性代替代码中的工作簿名称？ 请指教。

谢谢！

https://msdn.microsoft.com/en-us/library/microsoft.office.tools.excel.workbook.builtindocumentproperties.aspx?cs-save-lang=1&cs-lang=vb#code-snippet-1

示例（伪代码）：

if ThisWorkbook.Title = 'TEST' Then
    Application.OnKey "^d", ""
end if

Answer 1

使用工作簿事件来检测何时激活工作簿。

Private Sub Workbook_Activate()
    Application.OnKey "^d", ""
End Sub

Private Sub Workbook_Deactivate()
    Application.OnKey "^d"
End Sub

将其放在ThisWorkbook模块中。 您可能还想将Ctrl + d停用行添加到Workbook_Open事件。