一段简单的VBA代码，让你自如操作Excel，成为职场达人！

抛砖引玉的场景需求：关闭工作簿时，要求弹出特定信息，以向使用者传达信息。例如的，提醒保存工作簿， 提醒阅读后删除工作簿以免被别人看到等情况， 或者贱贱的用Excel工作簿向职场中的哪位小哥哥小姐姐表达爱意！

场景1： 关闭工作簿时，强制提醒是否真的要关闭工作簿！

在工作簿模块中加入如下代码即可实现上面的演示功能。

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim info As Integer
info = MsgBox("《神奇的VBA》提醒： 您真的想退出系统吗？", vbYesNo + vbQuestion, "提示")
If info <> vbYes Then
 Cancel = True
End If
End Sub

场景2：关闭工作簿前，向女神表达邪恶的欢喜！

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim info As Integer
info = MsgBox("Sue, I Love You", vbYesNo, "秘密：")
If info <> vbYes Then
 MsgBox "小姐姐，如你不接收我的爱，我则今生不娶，你也休想关闭工作簿, 呵呵~！"
 Cancel = True
End If
End Sub

动手试一试，屏幕前的你， 复制代码运行下吧~~！

有关Excel VBA编程知识（超多职场牛人的必备秘技），可下载安装使用一款优秀职场人必备的工具《神奇的VBA》插件，一款嵌入进Excel Ribbon界面，打开任意Excel工作簿就能随时查阅学习VBA编程的Excel 插件。

插件下载地址戳下面链接：

《神奇的VBA》-职场牛人都在使用的Excel插件

《神奇的VBA》选项卡样式

神奇的VBA使用演示图