在职场日常工作中，我们时常会遇到这样的情况：自己的工作表被他人借用，此时，适时地给出一些趣味性的提示，不仅能增添工作的乐趣，还能在轻松的氛围中提醒对方注意。当然，偶尔也可以开个小玩笑，比如：
当他人打开你的工作表时，突然弹出一个窗口，窗口中的文字如下：“哎呀，你的电脑好像严重感染了病毒！系统正在急剧升温，赶快点击确定来查查病毒吧。”
点击确定后，窗口再次弹出：“病毒太顽固了，无法查杀！受病毒影响，你的CPU将在10分钟内开启自爆模式，请立即远离你的电脑200米距离。”
再次点击确定，窗口的文字变为：“点击确定，立刻引爆CPU！”
对于那些不太懂电脑的人来说，这肯定是一次惊吓……
下面，让我们一起来了解一下如何制作这样的效果：
-
首先新建一个Excel文档，点击【文件】-【选项】-【信任中心】-【信任中心设置】-【宏设置】，将宏设置成“启用所有宏（不推荐，可能会运行潜在危险的代码）”。
-
使用快捷键Alt+F11打开VBA窗口，双击【ThisWorkBook】，输入以下代码：
vba
Private Sub Workbook_Open()
MsgBox '你的电脑严重感染病毒！系统急剧升温中，点击确定查杀病毒', vbOKOnly, '高温报警'
MsgBox '病毒顽固，无法查杀，受病毒影响，CPU将在10分钟内开启自爆模式，请远离你的电脑200米距离', vbOKOnly, '自爆报警'
MsgBox '点击确定，立刻引爆CPU', vbOKOnly, '一级报警'
End Sub
-
将上述代码保存到Word或TXT文档中，然后复制到VBA窗口中。
-
点击【保存】，然后关闭VBA窗口。
-
点击【文件】-【另存为】，将保存格式设置为“Excel启用宏的工作簿*.xlsm”。
-
打开刚才保存的Excel文档，你就可以看到上述的提示信息了。