Excel 会对话,打开文件它先来个对话框,一通倾诉

公众号平台最新的推送规则对技术类文章不太友善，如果不想错过干货，请务必“设为星标”哦！！！

点击任意文章上方的“☆星标”即可。

有人说她最近收到的 Excel 文件，打开总是会自动弹出一个对话框，每次收到的文件不同，对话框中的内容也随之变化，挺有意思，仿佛在进行人机对话。

这是怎么做的呢？其实再容易不过了，就是 VBA 入门学习的第一个语句，有些同学学会了以后就用来暗戳戳表白，也是 666 了。

案例：

下图 1 是班级同学的各科考试成绩表，打开这个文件时，会自动弹出一个求饶对话框，必须点击“确定”以后才能正常对文件进行编辑。

效果如下图 2 所示。

解决方案：

1. 按 Alt+F11 --> 在弹出的 VBE 窗体的导航栏中点击 ThisWorkbook

2. 在右侧窗体的上方分别选择 Workbook 和 Open --> 输入以下代码：

PrivateSub Workbook_Open()MsgBox"没考好，求放过！"EndSub

* 起始和结束语句会自动出现，我们其实只需要输入 MsgBox 语句；引号内的内容就是弹出的对话框中所显示的内容。

3. 关闭 VBE --> 将 Excel 保存为 .xlsm 格式的文件

现在打开这个文件，就会自动弹出我们刚才设置的对话框内容。