Excel VBA-如果activeworkbook是thisworkbook

Question

我在工作簿中有一个宏（故意地）分配给快捷键CTRL + S ，该宏在保存文件之前会运行一些操作，但是打开此快捷键时，任何其他文档都会使用此快捷键。

您能否直接测试Activeworkbook = ThisWorkbook以便在使用任何其他工作簿时将其忽略？

Sub ShowHiddenSheets()
If ThisWorkbook = ActiveWorkbook Then
    `code stuff
End If
Exit Sub

Answer 1

无需进行任何检查，而是将其添加到所需的工作簿中：

dim w as Workbook

set w  = ThisWorkbook

然后在您的模块中，参考w。 例如：

with w.sheets("Sheets1")

这将确保宏仅在该特定工作簿中运行，而不在其他工作簿中运行