在select工作簿时编码消息框

我想做一个macros，所以当工作簿打开或变得活跃（意味着它在后台运行时不活动，但用户正在另一个工作簿或另一个应用程序中工作），出现一个对话框自定义警告消息。 理想情况下，代码看起来像这样，并将在ThisWorkbook对象代码：

Sub warningmsg() Dim wb As Workbook Set wb as This.Workbook If wb.first.mouseclick <> True Then MsgBox "Warning, this workbook is HOT" end sub 

在Excel VBA中这怎么可能？

Answer 1

将下面的代码粘贴在ThisWorkbook代码中

 Private Sub Workbook_Activate() MsgBox "this workbook is hot" End Sub 

保存并closures文件（确保使用包含macros的扩展名， 例如.xlsm ）。

再次打开它，并打开另一个工作簿。 在窗口之间切换并激活具有上述代码的窗口将导致MsgBox出现，并显示您的this workbook is hotstring