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
关注获取更多精彩内容!