Excel【VBA】登录窗口实现！
Excel【VBA】
创建登录窗口！
效果如下图所示：
输入错误进行提示，输错三次自动退出系统
在ExcelVBA中创建窗体，插入两个标签，两个文本框，两个命令按纽，如下所示：
用户名对应文本框名称：txtUserName
密码对应文本框名称：txtUserPW
确定按纽名称：cmdOk
退出按纽名称：cmdQuit
右击确定按纽，创建SUB过程，对应VBA代码如下所示：
Option Explicit
Private Sub cmdOk_Click()
Dim sUserName As String, sUserPW As String
Static iCount As Integer
sUserName = txtUserName.Text
sUserPW = txtUserPW.Text
If sUserName = "admin" And sUserPW = "123" Then
MsgBox "登录成功，欢迎您使用本系统！"
Unload Me
Application.Visible = True
Else
If Len(sUserName) * Len(sUserPW) = 0 Then
MsgBox "用户名或密码不能为空"
Else
MsgBox "用户名或密码不对，请重新输入！"
iCount = iCount + 1
txtUserName.Text = ""
txtUserPW.Text = ""
txtUserName.SetFocus
If iCount = 3 Then
MsgBox "对不起，您尝试的次数过多，登录失败！"
Application.Quit
End If
End If
End If
End Sub
Private Sub cmdQuit_Click()
Application.Quit
End Sub
在this workbook中创建一个事件过程
当工作簿打开时，最小化Excel，并显示用户登陆窗体
Option Explicit
Private Sub Workbook_Open()
Application.EnableCancelKey = xlDisabled
Application.Visible = False
UserForm1.Show
End Sub
这样一个简易的登陆窗口就制作完成了，觉得好用就分享给朋友吧！
========================
出自原创微信信息：自学成才Excel
新朋友长按下方二维码进行关注！
如需转载或投稿菜单栏下方联系作者
ID：selftt
学习5分钟，工作省2小时！
Excel技巧基础+函数+透视表+VBA
点击左下方阅读原文一键加QQ群下载素材