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

Question

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

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

有没有办法在代码中使用工作簿内置属性而不是工作簿名称？请指教。

谢谢！

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

把它放在这个工作簿模块中。您可能还希望将 Ctrl+d 停用行添加到 Workbook_Open 事件中。