1、首先我们打开一个工作样表作为例子。
2、进入vba代码编辑器，按下alt+f11组合快捷键进入。然后输入以下代码。
Sub login()
Dim strPassword As String '保存密码
Dim i As Integer '输入密码的次数
Do
strPassword = InputBox("请输入密码") '输入密码
If strPassword = "test" Then '判断密码是否正确
Exit Do '退出循环
Else
MsgBox ("密码不正确，请重新输入")
End If
i = i + 1
Loop While i < 3
If i >= 3 Then '超过正常输入密码次数
MsgBox "密码错误，退出程序！"
Application.Quit
Else
MsgBox "欢迎你使用本系统！"
End If
End Sub
3、首先我们定义了一个login过程。首先保存密码定义为文本字符。输入密码定义为整数型。
4、接下来是使用do循环，循环的意思是重复的运行这段代码，如果没有设置停止条件，就会不停的运行下去。这里在do循环里就是不停的输入密码并进行判断密码是否正确。
5、大家可以看到密码被窝设置为test，这里是固定密码，如果有多个密码，大家可以自行思考一下如何写。接下来我们要对密码验证次数有一个设定值。也就是用while循环条件设置，比如这里的<3次。
6、因为这是一个过程，所以在使用时，我们要在工作薄内建立一个按钮来激活这个过程，创建按钮的方法就不赘述了。这里我来提示一下大家，这个过程的代码是正常实现的，但是并不能起到加密的作用。还记得当初我教大家的如何在开启程序的时候自动运行宏吗？在workbook-open动作下使用call 过程。
7、先写到这里了，谢谢大家的观看。
祝大家生活愉快。
小编还有许多其他的经验可以观看，如果无法解决问题可以联系小编进行咨询。
看不清楚图片的可以点击放大再看哦。
