帮帮孩子看看代码是哪里出错了。

夜是我惶恐的心

我设置了变量，为啥还不给我运行。
以下是代码。

1. Option Explicit
   
2. 
   
3. Private Sub CommandButton1_Click()
   
4.     If ComboBox1.Value = "" Then
   
5.         MsgBox "用户名不能为空！"
   
6.     ElseIf TextBox2 = "" Then
   
7.         MsgBox "密码不能为空！"
   
8.         Exit Sub
   
9.     End If
   
10.     Dim rng As Range
    
11.     Set rng = shtAdmin.Range("A:A").Find(what = Me.ComboBox1.Value, lookat:=xlWhole)
    
12.     If rng Is Nothing Then
    
13.         MsgBox "用户不存在！请重新输入！"
    
14.         Exit Sub
    
15.     Else
    
16.         If rng.Offset(0, 1).Value & "" = TextBox2 Then
    
17.             '密码正确 分管理员和普通人员
    
18.         成功登录 rng
    
19.         Else
    
20.             '密码错误
    
21.             MsgBox "密码错误！请重新输入！"
    
22.             Exit Sub
    
23.         End If
    
24.     End If
    
25. End Sub
    
26. Sub 成功登录(rng As Range)
    
27.     Select Case rng.Value
    
28.         Case "admin"
    
29.             shtAdmin.Visible = xlSheetVisible '显示出管理员可见的表
    
30.             shtAdmin.Activate
    
31.             MsgBox "欢迎管理员登录"
    
32.         Case Else '其他权限 可分多级
    
33.             Sheet1.Activate
    
34.             Sheet2.Activate
    
35.             Sheet3.Activate
    
36.             Sheet4.Activate
    
37.             Sheet1.Activate
    
38.             Sheet5.Activate
    
39.             Sheet6.Activate
    
40.             Sheet7.Activate
    
41.             MsgBox "欢迎员工" & rng.Value & "登录!"
    
42.     End Select
    
43.     Application.Visible = True
    
44.     Unload Me
    
45. End Sub
    
46. Private Sub CommandButton2_Click()
    
47.     ThisWorkbook.Close False
    
48.     Application.Quit
    
49.     Unload Me
    
50. End Sub
    
51. Private Sub UserForm_initialize()
    
52.     Dim i
    
53.     For i = 2 To shtAdmin.UsedRange.Rows.Count
    
54.         If shtAmin.Cells(i, 1) <> "" Then
    
55.             Me.ComboBox1.AddItem shtAdmin.Cells(i, 1)
    
56.         End If
    
57.     Next
    
58.     ComboBox1.Value = shtAdmin.Cells(2, 1)
    
59. End Sub
    
60. Public Sub 登陆初始化()
    
61.     '把权限高级的部分隐藏起来
    
62.     shtAdmin.Visible = xlSheetVeryHidden '彻底隐藏
    
63. End Sub
    
64. Private Sub userform_queryclose(cancel As Integer, closemode As Integer)
    
65.     If closemode <> 0 Then
    
66.         cancel = 1
    
67.     End If
    
68. End Sub
    

复制代码

夜是我惶恐的心

发现问题了