Excel中使用vba制作密码验证的设置办法

　　excel使用vba制作自己的密码验证，如何进行操作呢?今天，小编就教大家在Excel中使用vba制作密码验证的操作方法。

　　Excel中使用vba制作密码验证的操作步骤如下：

　　首先我们打开一个工作样表作为例子。

　　进入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 <>

　　If i >= 3 Then '超过正常输入密码次数

　　MsgBox "密码错误，退出程序!"

　　Application.Quit

　　Else

　　MsgBox "欢迎你使用本系统!"

　　End If

　　End Sub

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

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

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

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

Excel中使用vba制作密码验证的操作方法