excel中利用VBA制作登录验证窗口

系统登录在很多地方都需要用到，当用户知道密码或者权限满足才能进入系统，这也是保护信息的一种手段。那再Excel中如何设计一个系统登录的界面？下面的示例就是一个登录设置界面。当我们输入的字符串与系统设置一致时，即可登录成功。这里设置了有限制的输入，3次输入错误后即强制退出。1、实现登录，这里需要利用到循环语句if...else判断用户密码是否正确。限制用户不停尝试，这里利用到do...loop语句循环控制。这是主要的思路。2、启动excel，选择工具--宏---visual basic编辑器，也可以按住Alt+F11键进入。3、进入到VB编辑器以后，在VB编辑器的菜单选项中的插入菜单下，选择插入模块。4、插入之后，在我们的工程窗体中就会出现一个模块选项，用鼠标双击一下，就会在右边的窗口中出现一个代码编辑区。5、现在我们的任务就是开始怎么进行编程了，我们首先建立一个login的程序，在下面进行代码录入就完成了。Sublogin()
DimpAsString
DimiAsInteger
Do
p=InputBox("请输入密码")
Ifp="admin"Then
ExitDo
Else
MsgBox"请输入正确密码！"
EndIf
i=i+1
LoopWhilei3Then
MsgBox"验证失败！请退出！"
Application.Quit
Else
MsgBox"欢迎进入系统！"
EndIf
EndSub
EndSub
6、代码录入完毕之后，安装F5键进行执行调试.7、结果验证，你可以进行三种尝试，一种是按照系统基于的用户名输入，一种是不是系统给予的输入，再一种是超过3次输入，因为这样做的目的是为了验证我们编写过程到底有没有错误
1503738474903667.jpg (7.42 KB, 下载次数: 0, 售价: 1 金钱)

2022-4-23 11:41 上传

点击文件名下载附件
1503738474903667.jpg

1503738481114051.jpg (6.14 KB, 下载次数: 0, 售价: 1 金钱)

2022-4-23 11:41 上传

点击文件名下载附件
1503738481114051.jpg