在信息管理系统中，很多时候都需要用户进行登录操作。在登录操作时要求用户输入用户名和密码，进行验证。
本小节我们就来说一下密码验证的一般步骤：
首先，我们要有一个工作表存储用户和姓名和密码，本例中我们将用户名和密码放在sheet2工作表中，当然实际使用时，你可以将用户信息存储到别的表中将其隐藏，甚至你还可以将用户名和密码存储到数据库中。
下面是用户名和密码验证过程的全部代码：
Dim Uname As String
Dim Upassword As String
Sub 验证(Uname, Upassword)
Dim Rng As Range
Dim Result As Boolean
'第一步：先判断用户名是否存在
For Each Rng In Sheets(2).Range('A1:A4')
If Uname = Rng.Value Then
Result = True
End If
Next
'第二步：如果用户名存在，则判断用户名对应的密码是否正确
If Result Then
'计算用户名所在的行
n = Application.WorksheetFunction.Match(Uname, Sheets(2).Range('A:A'), 0)
If Upassword = Sheets(2).Range('B' & n).Value Then
MsgBox '登录成功！'
Else
MsgBox '密码错误！'
End If
Else
MsgBox '该用户名不存在！'
End If
End Sub
'登录主程序
Sub denglu()
Uname = InputBox('请输入用户名：')
Upassword = InputBox('请输入密码:')
Call 验证(Uname, Upassword)
End Sub
代码设计完成以后，我们只需要将 denglu( )指定给“系统登录”按钮即可。
