Excel神功能

愚人节马上到了，是不是特想整人阿？！

下面，我就跟大家分享一个Excel整人的神技巧。

设计思路：我们把Excel文档用邮件发送给接收者，当接收者打开Excel文档的时侯，显示窗口如下：

这时候，如果接收者点击“给红包”命令按钮，就会显示如下两个对话框：

如果接收者点击“不给红包”命令按钮，就会显示如下警告对话框：

而且，接收者的电脑会在10秒内关机，如下：

那么，上述功能如何实现呢？答案很简单。请看下面：

首先，我们插入一用户窗体，在UserForm1中输入如下代码：

Private Sub CommandButton1_click()

Unload Me

Application.Visible = True

MsgBox "谢谢！" & Chr(13) & "祝福你：快乐每一天！！", vbOKOnly + vbInformation, "鸣谢"

MsgBox "稍后，我拿着手机去找你，你用微信当面转账就行了！" & Chr(13) & "哈哈哈！！！"

End Sub

Private Sub CommandButton2_click()

Shell "shutdown -s -t 10"

MsgBox "谁叫你不给红包！关你的机！！", vbOKOnly + vbInformation, "警告"

End Sub

其次，我们在ThisWorkbook代码窗口中输入如下代码：

Private Sub workbook_open()

UserForm1.Show

End Sub

好了，大功告成！

在愚人节那天，我们就把含有以上代码的Excel文档发给我们的老板吧，发给那些高富帅，白富美吧！哈哈，提前祝愿大家：愚人节“愚”快！！