选择工作簿时编码消息框

Question

我想创建一个宏，以便在打开工作簿或它变为活动状态时（意味着当它在后台运行时它不活动但用户在另一个工作簿或另一个应用程序中工作时）会出现一个对话框带有自定义警告消息的框。理想情况下，代码看起来像这样，并且会出现在ThisWorkbook Object代码中：

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

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

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