只有在书籍激活的情况下才能打开表格

我有一个shotcut来显示一个表单

Form1.Show //shortcut is ctrl+Q 

如果我激活另一个工作簿，然后按Ctrl + Q – 窗体也出现
我只希望它的书是活动的时候出现。
我试过了：

 If ThisWorkbook = ActiveWorkbook Then Form1.Show 

要么

 If ActiveWorkbook = ThisWorkbook Then Form1.Show 

并得到语法错误。

Answer 1

引用.name怎么样？

 If ThisWorkbook.Name = ActiveWorkbook.Name Then MsgBox "Is Active" End If 

即使Excel 2013不会同时打开两个同名的工作簿。

Answer 2

ActiveWorkbook和Thisworkbook是对象; 因此，要比较他们，你必须使用的is而不是= 。

 If Thisworkbook is ActhiveWorkbook then Form1.Show