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

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

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