Excel运用VBA创建登录窗口!

12-31 生活常识 投稿:森与雨露心
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

关注获取更多精彩内容!

标签: # 窗体 # 所示
声明:伯乐人生活网所有作品(图文、音视频)均由用户自行上传分享,仅供网友学习交流。若您的权利被侵害,请联系ttnweb@126.com