winform关闭窗口事件_用Excel VBA窗体设计一个权限验证窗口！

我的目标：让中国的大学生走出校门的那一刻就已经具备这些office技能，让职场人士能高效使用office为其服务。支持我，也为自己加油！

先来看下效果： 1、双击工作簿后，弹出登录窗口，如果用户名或者密码有一个未输入，直接点击确定，会弹出一个警告框，显示用户名或者密码不能为空！

2、如果用户名或者密码连续输入错误超过三次，则弹出警告框提示即将退出程序，关闭警告框后即关闭程序。

3、双击工作簿后，弹出登录窗口，点击登录窗口右上方的关闭命令不允许退出登录窗口。

4、输入正确的用户名和密码，点击确定后进入工作簿并激活Sheet1。

本案例代码如下： 确定按钮的Click事件代码如下：

Private Sub CommandButton1_Click()Static i%If TextBox1.Value = "" Then MsgBox "用户名不能为空！", vbInformation, "警告": Exit SubIf TextBox2.Value = "" Then MsgBox "密码不能为空！", vbInformation, "警告": Exit SubIf TextBox1 = "wuxupeng" And TextBox2 = 123456 Or TextBox1 = "mihong" _    And TextBox2 = 123456 Or TextBox1 = "admin" _    And TextBox2 = 123456 Then    Unload Me    Application.Visible = True    Sheet1.Activate    Application.EnableCancelKey = xlInterruptElse    MsgBox "密码或者用户名错误，请重新输入！", vbInformation, "警告"    i = i + 1    If i >= 3 Then        MsgBox "输入错误超过三次，程序即将退出！"        Unload Me        Application.Visible = True        Application.Quit    End IfEnd IfEnd Sub

本段代码主要用于验证用户名和密码，当用户输入用户名和密码错误三次以上时退出程序。 窗体的QueryClose事件代码：

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)    If CloseMode <> 1 Then Cancel = TrueEnd Sub

本段代码用于禁用登录窗口的关闭按钮，防止用户手动关闭后登录窗口后进入工作簿。 工作簿Open事件代码：

Private Sub Workbook_Open()    Application.EnableCancelKey = xlDisabled    Application.Visible = False    UserForm1.ShowEnd Sub

本段代码是打开工作簿时隐藏工作簿窗口并显示登录窗口。 一共三段代码就可以实现案例中的效果了。 本节知识点： 1、静态变量的使用 2、如何禁用事件 3、Application的EnableCancelKey属性

公众号后台资源库可获取更多资源：

本节的分享就到这里，祝大家每天都有进步。

1

在线课堂在逐渐完善中，欢迎您的光临！

点击下方“”即可进入云课堂学习！