为了隐私问题，才要求做密码输入，输入当中又不能出现内容，所以上来求助

niko88819

当 A51 选择 YES , 才能跳出窗体,而且把名字代到窗体

同时要求输入者输入密码,当输入者密码输入时都是 * 号，不出现任何数字，且按下 Confirm 密码正确才出现盖章签名，密码输入要求重新输入

一定密码正确才能跳离窗体，签名盖章才算完成

niko88819

小师妹自已研究了一下，还是差一点点，请版主跟老师帮个忙，谢谢啦！

niko88819

哎，只怪小师妹自已学艺不精，帮小师妹完善，鲜花送上，感恩

niko88819

3楼的附件有请版主跟老师有空帮个忙吗，谢谢啦

liulang0808

1. 
   
2. Private Sub Confirm_Click()
   
3. i = Application.WorksheetFunction.Lookup(Range("l52"), Range("a70:a100"), Range("l52"))
   
4. j = Application.WorksheetFunction.Lookup(Range("l52"), Range("a70:a100"), Range("c70:c100"))
   
5. If j <> "" Then
   
6. MsgBox Range("l52") & "hello"
   
7. End If
   
8. If TextBox2 = "a1234" And Range("l52") = "Robert" Then
   
9. MsgBox "Pass"
   
10. End If
    
11. If TextBox2 = "c9103" And Range("l52") = "Niko" Then
    
12. MsgBox "Pass"
    
13. End If
    
14. If TextBox2 = "k7586" And Range("l52") = "Fe" Then
    
15. MsgBox "Pass"
    
16. End If
    
17. If TextBox2 = "5678bb" And Range("l52") = "Genie" Then
    
18. MsgBox "Pass"
    
19. End If
    
20. If TextBox2 = "6435w" And Range("l52") = "Kevin" Then
    
21. MsgBox "Pass"
    
22. End If
    
23. End Sub
    

复制代码

楼主看下if else 的基础知识吧

niko88819

liulang0808 发表于 2018-6-26 08:28
楼主看下if else 的基础知识吧

明白了，多谢版主！

niko88819

再请教版主，当L51下拉选YES时，跳出窗体，当密码输入正磪才是YES 代码要怎么改呢？否则呈现 NO

准提部林

Private Sub Confirm_Click()
Dim M, uChk$
uChk = "NO"
If TextBox2 = "" Then MsgBox "請輸入密碼! ": Exit Sub
M = Application.Match([L52], [a70:a100], 0)
If IsError(M) Then MsgBox "使用者名稱錯誤! ": Exit Sub
If TextBox2 = [c70:c100].Item(M) Then uChk = "YES"
[L51] = uChk
If uChk <> "YES" Then MsgBox "密碼錯誤,請重新輸入! ": TextBox2 = "": Exit Sub
End Sub
　
無法解壓縮附件，只能大約猜一下：
a70:a100 應該是〔使用者名稱〕
c70:c100 是〔密碼〕

zopey

Private Sub Confirm_Click()
i = Application.Match([L52], [a70:a100], 0)
If i > 0 Then
   If TextBox2.Value = Cells(i + 69, 3).Value Then
      MsgBox "Pass"
      Unload UserForm1
   Else
      MsgBox "Wrong Pw"
   End If
Else
   MsgBox "Wrong User"
   UserForm1.Hide
End If
End Sub

Private Sub userform_queryclose(cancel As Integer, closemode As Integer)
   If closemode = vbFormControlMenu Then
      cancel = True
   End If
End Sub


签名确认.zip (175.95 KB, 下载次数: 15)

2018-6-26 11:23 上传

点击文件名下载附件

niko88819

再请教大师 UserForm1.Hide 如果密码成功 YES 后跳出窗体 此代码放在那裹呢？