作者：乔山办公网日期：
返回目录：excel表格制作
用VBA试试吧，首先确保你的工作薄中有至少两个工作表(sheet)，然后ALT+F11，新建一个用户窗体，用默认名称：userform1，拖放两个标签控件，两个文本框控件，一个按e69da5e6ba90e799bee5baa6e79fa5e98193335钮控件。在“ThisWorkbook"上双击，在右边输入如下代码：
Private Sub Workbook_Open()
Sheet1.Visible = xlSheetVeryHidden
UserForm1.Show
End Sub
然后双击按钮控件，输入如下代码：
Private Sub CommandButton1_Click()
If TextBox1.Text = "张三" And TextBox2.Text = "123456" Then
Unload Me
Sheet1.Visible = xlSheetVisible
Sheet1.Activate
Else
MsgBox "请输入正确的用户名和密码！", vbOKOnly + vbInformation, "提醒"
TextBox1.SetFocus
End If
End Sub
注意：此处假设用户名为“张三”，密码为“123456”，你可以自己更改。我已经上传了一个样板，请注意查看代码并做出思考。
以下是我写的一个从Sheet1的A2:B6这个范围查找用户名和密码进zd行验证的逻辑，你看看吧．
如果还有回不懂，再问吧．
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
以下是我写的一个从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