Excel VBA - 如果activeworkbook是本工作簿

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")

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