改用窗体验证密码后，如何写查找密码和跳转的VBA代码？

jzk

各位Excel大师，学生为了让输入密码的文本框显示“*”号，只能改用窗体，如何写相关代码，望指点，不胜感激！

活在理想的世界

你的被验证密码和用户名在某个工作表里吧？把她们加入数组，循环判断。如果为真打开工作簿

带劲儿

1. Sheet1代码：
   
2. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
3.     If (Target.Row > 1 And Target.Row < 7) And (Target.Column = 1) Then
   
4.         UserForm1.Show
   
5.     End If
   
6. End Sub
   
7. 窗体代码：
   
8. Private Sub CommandButton1_Click()
   
9.     m = ActiveCell.Row
   
10.     If TextBox1.Text <> Sheet2.Cells(m, 2) Then
    
11.         MsgBox "请输入正确的密码！", 64, "提示"
    
12.     Else
    
13.         Unload UserForm1
    
14.         Worksheets(ActiveCell.Value).Activate
    
15.     End If
    
16. End Sub
    
17. 
    
18. Private Sub CommandButton2_Click()
    
19.     Unload Me
    
20.     Range("a1").Select
    
21. End Sub

复制代码

带劲儿

改用窗体验证.zip (21.2 KB, 下载次数: 18)

2017-11-24 16:42 上传

点击文件名下载附件

看附件

jzk

带劲儿 发表于 2017-11-24 16:42
看附件

非常好，感谢大师指教！OK！

ivccav

楼主问之前都不会搜索一下吗？早几天我回答过跟你一模一样的问题，他是input输入密码无法显示*，我用窗体textbox完成。输入密码和更改密码都用一个窗体就够了。回答了几天问题，发现很多人问的问题都是一样的，都想伸手当，让别人写好代码。