时间:2020-02-10  来源:百度经验  作者:南霸天mxw  阅读:9

我们经常在登录一些系统的时候遇到过这样的情况,如果密码输入几次都错误的话,心痛就锁死了,在短时间内就会处于冻结状态,这个确实很简单,我们可以用一段VBA代码来实现,现在我们就来自己尝试一下。

EXCEL技巧——用VBA限制登录密码次数

新建一个EXCEL表格,单击菜单栏“开发工具”——VisualBasic,打开VBA编辑器,我们将在这个编辑其中编写代码。

在编辑器中选择“Sheet2”,单击“插入”——模块,现在就打开了代码编辑框。

现在我们来输入代码:Sub login()    Dim strPassword As String                '设置strPassword为字符串常量    Dim i As Integer                         '定义i为整数量    Do        strPassword = InputBox("请输入密码") '在此处输入密码输入密码        If strPassword = "123456" Then       '判断密码是否正确,密码为123456            Exit Do                          '退出Do循环        Else            MsgBox ("密码有误,重新输入!")  '提示密码错误        End If        i = i + 1                            'i循环一次增大1    Loop While i < 3    If i >= 3 Then                           'i超过5次,输出“请下次在来吧!”        MsgBox "请下次在来吧!"        Application.Quit    Else        MsgBox "欢迎光临!"                  '如果密码正确则输出“欢迎光临!”    End IfEnd Sub

EXCEL技巧——用VBA限制登录密码次数

单击菜单栏“运行”——运行子过程/用户窗体,弹出对话框“请输入密码”。

现在在密码框中输入“111111”,单击确定,弹出对话框,提示“密码有误,请重新输入”,连续输入3次,弹出对话框提示“请下次再来吧!”

在密码框中输入“123456”,单击确定,弹出对话框,提示“欢迎光临”。

Top