excellvba引用计算机用户名,利用Excel VBA编程进行用户名和密码的双重验证

在信息管理系统中，很多时候都需要用户进行登录操作。在登录操作时要求用户输入用户名和密码，进行验证。

本小节我们就来说一下密码验证的一般步骤：

首先，我们要有一个工作表存储用户和姓名和密码，本例中我们将用户名和密码放在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( )指定给“系统登录”按钮即可。