excel vba多用户名和密码登陆（急急急！）

以下是我写的一个从Sheet1的A2:B6这个范围查找用户名和密码进行验证的逻辑，你看看吧．

如果还有不懂，再问吧．

Public Sub aaaaaaaa()

Dim inName As String '输入用户名

Dim inPwd As String '输入密码

Dim rightPwd As String '检索到的密码

inName = "user01" '测试用户名

inPwd = "pwd09" '测试密码

On Error Resume Next

'根据用户名检索正确密码

rightPwd = WorksheetFunction.VLookup(inName, Sheet1.Range("A2:B6"), 2, False)

If rightPwd <>"" And rightPwd = inPwd Then

MsgBox "正确"

Else

MsgBox "错误"

End If

End Sub

我不知道你有没有VBA的基础，

我提供一个思路吧：

1，在EXCEL里建立一个储存用户名和密码的SHEET（USER）；

2，画一个登录窗口的窗体，并写好用户名查找和密码匹配的代码；

3，在“Private Sub Workbook_Open()”写显示登录窗口的窗体语句，

无法用几句话说清楚，只提供思路！

这个，首先你要会用宏，否则你就要会写VBA。

多用户登陆，你可以全用VB编写程序，也可以在access中做一个用户基本资料，把用户资料先录入进去。

逻辑就是，用宏或VBA，检测输入的账号和密码与用户表中的账户和密码的符合性。

更深入一点，那就是你得做一个表，做一个登录窗体，登录窗体就象那个QQ登录的一样，做个输入账号的text，做个输入密码的text，然后做一个确认按钮，做一个取消按钮，确认按扭中单击事件中写入程序，一按，程序就进行比较。正确就关掉登陆窗，错误就提醒一下。很简单的，相信你如此聪明，一想就明白了。

如果再不明白，请把财富值加到500，手把手的教你怎么做哈，不是我太贪，而是你太抠门了，这么复杂的工程，30个财富值怎么学得会呢，嗯，一定得再加点，太少了。

---