vba - 选择工作簿时对消息框进行编码

Question

我想制作一个宏，因此当工作簿打开或变为活动状态时（意味着它在后台运行但用户正在另一个工作簿或另一个应用程序中工作时它不活动）会出现一个对话框，其中包含定制的警告信息。理想情况下，代码看起来像这样，并且在 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 中怎么可能？

score 1 · Accepted Answer

在代码中粘贴以下ThisWorkbook代码

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

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

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

1 回答 1