excel使用vba制作自己的密码验证 _excel2016

小编致力于为大家奉献最有效的经验，让大家能够解决掉问题，但是大家也都知道，每个人遇到的情况都是不一样的，大家在看小编经验的同时，除了跟随操作，也需要自己的思考，举一反三的解决问题，这样才会变得更加有内涵，成为和小编一样的经验达人。 excel使用vba制作自己的密码验证，这里，让小编给大家介绍一下。

文章插图
工具/原料excel2016

方法/步骤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 ("密码不正确，请重新输入")
If
i = i + 1
Loop While i < 3
If i >= 3 Then '超过正常输入密码次数
MsgBox "密码错误，退出程序！"
Application.Quit
Else
MsgBox "欢迎你使用本系统！"
If
Sub

文章插图

3首先我们定义了一个login过程。首先保存密码定义为文本字符。输入密码定义为整数型。

文章插图

4接下来是使用do循环，循环的意思是重复的运行这段代码，如果没有设置停止条件，就会不停的运行下去。这里在do循环里就是不停的输入密码并进行判断密码是否正确。

文章插图

5大家可以看到密码被窝设置为test ，这里是固定密码，如果有多个密码，大家可以自行思考一下如何写。接下来我们要对密码验证次数有一个设定值。也就是用while循环条件设置，比如这里的<3次。

文章插图

6因为这是一个过程，所以在使用时，我们要在工作薄内建立一个按钮来激活这个过程，创建按钮的方法就不赘述了。这里我来提示一下大家，这个过程的代码是正常实现的，但是并不能起到加密的作用。还记得当初我教大家的如何在开启程序的时候自动运行宏吗？在workbook-open动作下使用call 过程。