[已解决]登录密码错误、点击确定提示后 鼠标回到密码框

feiaoli

哪位大侠可以帮我我修改一下 下面的代码 ？

Private Sub CommandButton1_Click() '登录按钮被单击时
    Dim arr, X&, Yhm As String, Mm As String '定义变量
    With 密码表格
        arr = .Range("A2:B" & .Range("A65536").End(xlUp).Row) '把密码表格的用户用和密码赋值给数组
    End With
     Yhm = 用户名.Text
     Mm = 密码.Text
     For X = 1 To UBound(arr)
         If Yhm = arr(X, 1) And Mm = arr(X, 2) Then '在数组中循环判断用户名和密码，对应相同时，执行下面代码
            Unload Me
             UserForm1.Show '激活 窗体1
             Application.Visible = True '显示工作窗体
            Exit Sub '结束程序
        End If
     Next X
     MsgBox "用户名或密码错误，请重新输入！"
         Cancel = True                     '如果确定后密码错误 清除密码框输入数据1/2
         Me.密码.Text = ""                 '如果确定后密码错误 清除密码框输入数据2/2
End Sub

就是 如果密码错误 点击 确定 提示以后 光标再回到 密码textbox框（我也是还没找到、我的密码都是抄袭的向你们这样的大师的\(^o^)/~）

先谢谢了

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-4-22 17:49

1. Private Sub CommandButton1_Click()    '登录按钮被单击时
   
2.     Dim arr, X&, Yhm As String, Mm As String    '定义变量
   
3.     With 密码表格
   
4.         arr = .Range("A2:B" & .Range("A65536").End(xlUp).Row)    '把密码表格的用户用和密码赋值给数组
   
5.     End With
   
6.     Yhm = 用户名.Text
   
7.     Mm = 密码.Text
   
8.     For X = 1 To UBound(arr)
   
9.         If Yhm = arr(X, 1) And Mm = arr(X, 2) Then    '在数组中循环判断用户名和密码，对应相同时，执行下面代码
   
10.             Unload Me
    
11.             UserForm1.Show    '激活 窗体1
    
12.             Application.Visible = True    '显示工作窗体
    
13.             Exit Sub    '结束程序
    
14.         End If
    
15.     Next X
    
16.     MsgBox "用户名或密码错误，请重新输入！"
    
17.     Cancel = True                     '如果确定后密码错误 清除密码框输入数据1/2
    
18.     Me.密码.Text = ""                 '如果确定后密码错误 清除密码框输入数据2/2
    
19.     Me.密码.SetFocus
    
20. End Sub

复制代码

跳转到最佳答案楼层

hwc2ycy

1. Private Sub CommandButton1_Click()    '登录按钮被单击时
   
2.     Dim arr, X&, Yhm As String, Mm As String    '定义变量
   
3.     With 密码表格
   
4.         arr = .Range("A2:B" & .Range("A65536").End(xlUp).Row)    '把密码表格的用户用和密码赋值给数组
   
5.     End With
   
6.     Yhm = 用户名.Text
   
7.     Mm = 密码.Text
   
8.     For X = 1 To UBound(arr)
   
9.         If Yhm = arr(X, 1) And Mm = arr(X, 2) Then    '在数组中循环判断用户名和密码，对应相同时，执行下面代码
   
10.             Unload Me
    
11.             UserForm1.Show    '激活 窗体1
    
12.             Application.Visible = True    '显示工作窗体
    
13.             Exit Sub    '结束程序
    
14.         End If
    
15.     Next X
    
16.     MsgBox "用户名或密码错误，请重新输入！"
    
17.     Cancel = True                     '如果确定后密码错误 清除密码框输入数据1/2
    
18.     Me.密码.Text = ""                 '如果确定后密码错误 清除密码框输入数据2/2
    
19.     Me.密码.SetFocus
    
20. End Sub

复制代码

feiaoli

hwc2ycy 发表于 2013-4-22 17:49

麻烦老师您看一下、还有附件

我想要的 是

1、去掉 自动创建的 窗体上 textbox 和 label （即 底部白色的）
2、保留 点击 左面窗口数据 提取到 右面各个 textbox、其他所有功能不变
麻烦了！！！