VBA 设置用户名密码

我爱你_浮浮沉〃

ctp_119 发表于 2013-4-6 14:48
你怎么用WPS呀，wps可能不支持vba的。

现在想换回来，找不到EXCEL下载链接

ctp_119

你这个问题可大了，你textbox和combobox不分。逻辑混乱。变量用错。大致上帮你修改了一下，避免了开始的错误，但是不知道满足你的意思否。。。。

1. Private Sub CommandButton1_Click()
   
2. 'On Error GoTo 10 '当姓名与密码不对应时，会出现错误，转到10语句处理
   
3. Dim n As String
   
4. Dim s As Double
   
5. Dim rng As Range
   
6. Set sh = Sheets("设置")
   
7. na = TextBox1.Text: ps = ComboBox1.Text '取得登录窗口中的姓名与密码
   
8. If na = "" Or ps = "" Then MsgBox "未输入用户名或密码，不能登录", , "提示": Exit Sub
   
9. Set rng = sh.[a:a].Find(ps)
   
10. s = Val(Right(rng.Address, 1))
    
11. 's = WorksheetFunction.Match(na, sh.[a:a], 0) '查找用户在A列的位置
    
12. n = sh.Cells(s, 2) '取出“设置”表中的权限密码，字符型
    
13. If n <> na Then GoTo 10
    
14. Call 隐藏表
    
15. '检查一下“设置”表的C列及右边各格中的内容，有内容的，说明可以打开内容所指定的工作表
    
16. For i = 4 To 255
    
17. b = sh.Cells(s, i).Value
    
18. If b = 1 And sh.Cells(1, i) <> "" Then '单元格为1时，表示有权限打开这个表，就让它显示出来
    
19. Sheets(sh.Cells(1, i).Value).Visible = -1
    
20. End If
    
21. Next
    
22. Unload UserForm1 '退出窗体
    
23. Exit Sub
    
24. 10:
    
25. MsgBox "姓名或密码错误，不能登录", , "提示"
    
26. End Sub
    
27. Sub 隐藏表()
    
28. TextBox1.Text = "": ComboBox1.Text = ""
    
29. For i = 1 To Worksheets.Count
    
30. If Sheets(i).Name <> "登录" Then
    
31. Sheets(i).Visible = 2
    
32. Else
    
33. Sheets(i).Visible = -1 '只让“登录”表显示出来
    
34. End If
    
35. Next
    
36. End Sub
    
37. Private Sub CommandButton2_Click()
    
38. Call 隐藏表
    
39. End Sub
    
40. Private Sub UserForm_Activate()
    
41. '窗体出现在屏幕上的位置
    
42. Me.Top = 220
    
43. Me.Left = 120
    
44. End Sub
    

复制代码

还有代码书写的极不规范。

ctp_119

具体情况请看附件

ctp_119

我爱你_浮浮沉〃 发表于 2013-4-6 14:48
现在想换回来，找不到EXCEL下载链接

度娘呀！！！2003版本应该有很多！2010的也有，你要去找呀。

yf_home

ctp_119 发表于 2013-4-6 15:10
具体情况请看附件

建议再修改下：
启动时，看不到Excel窗口，只看到窗体的用户名密码登录窗口。
用户名密码正确后，方才显示Excel窗口。

ctp_119

要显示excel主窗口还不好办，删除一句代码即可。application.visible=false删除即可。

小牛快快跑

傍海听风 发表于 2013-4-6 14:11
Private Sub Workbook_Open()

    Dim Yfm As String

非常感谢楼主