[已解决]（求助...........）编程后，excel查询不能正常使用

sdwffw

实地核查观察员派遣工作系统V1.0.zip (229.21 KB, 下载次数: 69)

2012-7-10 16:25 上传

点击文件名下载附件
请老师指导做了一个多用户权限登陆，管理员密码：858999，可看5个表；高级用户：654321，4个表；普通用户，123456，两个表。但thiswork和userform1写了代码后，excel“编辑”、“查找”时，出现默认查询登陆时选的用户名字段（如“普通用户”），模糊查询其它字段时也不能查了，不知是何原因，请老师指教。工程密码：730418

最佳答案

月排行榜 / 总排行榜

天马

2012-7-12 14:46

sdwffw 发表于 2012-7-10 19:37
i = Sheet5.[A:A].Find(a, Lookat:=xlWhole).Row
代码中的这条查找语句一直发挥作用？

1、这是excel默认的，保留上次查找的记录和匹配格式，对后面的操作没有多在的影响，你若要编辑－查找，可重新设置查找的条件，在查找窗口中点选项进行设置。
2、在编辑查找中若你不要看到系统登录时的用户名，可用循环来代替查找语句来判断密码是否正确来登录。
将窗体中的代码稍改动如下，保留了你原代码注释部分，添加了红色字体部分
Private Sub CommandButton1_Click()
Dim a As String, b As String
Dim i As Integer, ir As Integer
Dim Bol As Boolean
Bol = False
    If ComboBox1.Text = "" Or TextBox1.Text = "" Then
         MsgBox "请填写齐全！", 1 + 64, "系统登陆"
         'TextBox1.SetFocus
         Exit Sub
    End If
    a = ComboBox1.Text
    b = TextBox1.Text
'    i = Sheet5.[A:A].Find(a, Lookat:=xlWhole).Row
   For i = 1 To Sheet5.Range("A65536").End(xlUp).Row
        If Sheet5.Cells(i, 1) = a And Sheet5.Cells(i, 2) = b Then '判断用户名和密码是否一致
            Bol = True
            Exit For
        End If
    Next i
    If Bol Then
        Unload UserForm1
        MsgBox ComboBox1.Text & "你好，欢迎你进入本系统！", 1 + 64, "欢迎词"
        Application.Visible = True
    Else
        MsgBox "登陆密码错误,请重新输入！"
    Exit Sub
    End If
    If i = 3 Then
        For i = 2 To 5
        Sheets(i).Visible = xlSheetVisible
        Next
    ElseIf i = 4 Then
        For i = 2 To 4
        Sheets(i).Visible = xlSheetVisible
        Next
    Else
        Sheet4.Visible = xlSheetVisible
    End If
'If ComboBox1.Text = "" Or TextBox1.Text = "" Then
'     MsgBox "请填写齐全！", 1 + 64, "系统登陆"
'     TextBox1.SetFocus
'Else
'  Sheets("SHEET5").Range("A20") = ComboBox1.Text
'       If Sheets("SHEET5").Range("B20") = TextBox1.Text Then
'       Unload UserForm1
'       MsgBox ComboBox1.Text & "你好，欢迎你进入本系统！", 1 + 64, "欢迎词"
'
'        Application.Visible = True
        'ActiveWorkbook.Unprotect PASSWORD:="12345"
        'Sheets("主界面").Visible = True
     
       ' Sheets("主界面").Activate
        'Sheets("A").Visible = False
        'ActiveWorkbook.Protect PASSWORD:="12345"
'        Else
'        MsgBox "登陆密码错误,请重新输入！"
'        End If
'End If
End Sub

跳转到最佳答案楼层

sdwffw

是不是代码对excel自带的查找功能产生了影响？

sdwffw

Private Sub CommandButton1_Click()
Dim a As String, b As String
Dim i As Integer, ir As Integer
    If ComboBox1.Text = "" Or TextBox1.Text = "" Then
         MsgBox "请填写齐全！", 1 + 64, "系统登陆"
         'TextBox1.SetFocus
         Exit Sub
    End If
    a = ComboBox1.Text
    b = TextBox1.Text
    i = Sheet5.[A:A].Find(a, Lookat:=xlWhole).Row
    If Sheet5.Cells(i, 2) = b Then
        Unload UserForm1
        MsgBox ComboBox1.Text & "你好，欢迎你进入本系统！", 1 + 64, "欢迎词"
        Application.Visible = True
    Else
        MsgBox "登陆密码错误,请重新输入！"
    Exit Sub
    End If
    If i = 3 Then
        For i = 2 To 5
        Sheets(i).Visible = xlSheetVisible
        Next
    ElseIf i = 4 Then
        For i = 2 To 4
        Sheets(i).Visible = xlSheetVisible
        Next
    Else
        Sheet4.Visible = xlSheetVisible
    End If
end sub

sdwffw

是不是上段代码的问题，使excel查找定位在sheet5中登陆时的用户名？

sdwffw

i = Sheet5.[A:A].Find(a, Lookat:=xlWhole).Row
代码中的这条查找语句一直发挥作用？

sdwffw

请老师指教，急，非常感谢

sdwffw

这个问题是不是不好解决？

sdwffw

请老师帮忙看看，急着使用

sdwffw

该程序主要是在zjdh老师指导下研发的，非常感谢zjdh老师，再烦请老师看看

sdwffw

请老师帮助看看，并指导修改一下，非常感谢。