Excel运用VBA创建登录窗口!

2021年6月23日15:59:08Excel运用VBA创建登录窗口!已关闭评论 110 views
微信公众号 【EXCEL880】 QQ群【165159540】 Excel课程咨询 请加郑广学老师微信EXCEL880B

Excel【VBA】

创建登录窗口!

效果如下图所示:

Excel运用VBA创建登录窗口!

输入错误进行提示,输错三次自动退出系统

一、创建窗体

在ExcelVBA中创建窗体,插入两个标签,两个文本框,两个命令按纽,如下所示:

用户名对应文本框名称:txtUserName

密码对应文本框名称:txtUserPW

确定按纽名称:cmdOk

退出按纽名称:cmdQuit

Excel运用VBA创建登录窗口!

二、编写代码

右击确定按纽,创建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

这样一个简易的登陆窗口就制作完成了,觉得好用就分享给朋友吧!

========================