密码验证

VBA让工作效率飞起来！

专门代写EXCEL VBA中小型 程序代码。

本人以诚信立足 ，另欢迎加友交流学习！

1．案例说明

在信息管理系统中，很多时候都需要用户进行登录操作。在登录操作时要求用户输入密码，一般都要给用户三次机会，每次的输入过程和判断过程都相同。

本例使用Do…Loop循环完成密码验证过程。

2．关键技术

在VBA中，最常用的循环语句是Do…Loop循环。循环结构Do While…Loop的语法格式如下：

Do While 逻辑表达式

语句序列1

[Exit Do]

[语句序列2]

Loop

其中Do While和Loop为关键字，在Do While和Loop之间的语句称为循环体。

当VBA执行这个Do循环时，首先判断“逻辑表达式”的值，如果为False（或零），则跳过所有语句，执行Loop的下一条语句，如果为True（或非零），则执行循环体，当执行到Loop语句后，又跳回到Do While语句再次判断条件。在循环体中如果包含有Exit Do语句，当执行到Exit Do语句，马上跳出循环，执行Loop的下一条语句。其流程图如图3-22所示。

图3-22 Do While…Loop流程图

VBA的Do…Loop循环有4种结构，分别如下：

— Do While…Loop循环：先测试条件，如果条件成立则执行循环体。

— Do…Loop While循环：先执行一遍循环体，再测试循环条件，如果条件成立则执行循环体。

— Do Until…Loop循环：先测试条件，如果条件不成立则执行循环体。

— Do…Loop Until循环：先执行一遍循环体，再测试循环条件，如果条件不成立则执行循环体。

3．编写代码

（1）新建Excel工作簿，按快捷键“Alt F11”进入VBE开发环境。

（2）单击菜单“插入/模块”命令向工程中插入一个模块。

（3）在模块中编写以下VBA代码：

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