在VBA中设置双重验证通常涉及两个步骤：验证用户名是否存在，然后验证与该用户名关联的密码是否正确。以下是一个简单的示例代码，展示了如何实现这一过程：
验证用户名是否存在
遍历一个包含用户名的范围，检查输入的用户名是否在该范围内。
验证密码
如果用户名存在，则获取该用户名所在的行号，并检查输入的密码是否与该行对应的密码匹配。
```vba
Dim Uname As String
Dim Upassword As String
Dim Rng As Range
Dim Result As Boolean
' 第一步： 先判断用户名是否存在
For Each Rng In Sheets（2）.Range（'A1:A4'）
If Uname = Rng.Value Then
Result = True
Exit For ' 找到用户名后退出循环
End If
Next Rng
' 第二步： 如果用户名存在，则判断用户名对应的密码是否正确
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
' 登录主程序
Sub denglu（）
Uname = InputBox（'请输入用户名：'）
Upassword = InputBox（'请输入密码：'）
Call 验证（Uname, Upassword）
End Sub
```
代码解释：
变量声明
`Uname` 和 `Upassword` 用于存储用户输入的用户名和密码。
`Rng` 用于遍历用户名范围。
`Result` 用于存储验证结果。
验证用户名是否存在
使用 `For Each` 循环遍历 `Sheets（2）.Range（'A1:A4'）` 范围，检查输入的用户名是否在该范围内。
如果找到用户名，将 `Result` 设置为 `True` 并退出循环。
验证密码
如果用户名存在，使用 `Application.WorksheetFunction.Match` 函数找到用户名所在的行号。
检查输入的密码是否与该行对应的密码匹配，并显示相应的消息框。
登录主程序
通过 `InputBox` 函数获取用户输入的用户名和密码，并调用 `验证` 子程序进行验证。
建议：
确保用户名范围和密码存储位置的准确性。
可以将用户名和密码存储在单独的工作表中，以提高安全性和可维护性。
考虑使用更安全的密码存储和验证方法，例如哈希算法。