我们经常在登录一些系统的时候遇到过这样的情况，如果密码输入几次都错误的话，心痛就锁死了，在短时间内就会处于冻结状态，这个确实很简单，我们可以用一段VBA代码来实现，现在我们就来自己尝试一下。工具/原料moreEXCEL软件方法/步骤1/6分步阅读

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

2/6

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

3/6

现在我们来输入代码：

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 If

End Sub

4/6

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

5/6

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

6/6

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

excel