GBKEE

回復 20# av8d
試試看

下載 (19.42 KB)

2013-3-22 13:20

Sheet1的CommandButton1_Click()

DSC00220.JPG.rar (20.54 KB)

下載次數: 4

2013-3-22 13:16

av8d

回復 21# GBKEE


    Test10.rar (30.39 KB)

下載次數: 3

2013-4-2 16:11

當密碼出現錯誤時，會跳窗讓使用者在輸入一次，輸入以後又會跳回原來的UserForm1窗，再次登入測試

是否有辦法讓他不要跳回原來的UserForm1窗~直接再次登入測試？

GBKEE

回復 22# av8d
試試看 是這樣嗎?

1. Private Sub CommandButton1_Click()
   
2.     Dim CB As String, TB As String, ER As String, I As Integer
   
3.     CB = ComboBox1
   
4.     TB = TextBox1
   
5.     For I = 1 To 3
   
6.         If 確認密碼(CB, TB) = "密碼正確" Then
   
7.             GoTo MS
   
8.         Else
   
9.             TextBox1 = InputBox("密碼錯誤! " & I & "次", "警告！", "請輸入正確密碼！")
   
10.             TB = TextBox1
    
11.         End If
    
12.     Next
    
13.     MsgBox "密碼錯誤! 3次 關閉 Excel"
    
14.     Application.Quit
    
15.     Exit Sub
    
16. MS:
    
17.     MsgBox "密碼正確"
    
18.     Username = ComboBox1
    
19.     Unload Me
    
20. End Sub
    
21. Private Function 確認密碼(CB As String, TB As String) As String
    
22.     Dim I As Integer
    
23.     確認密碼 = "密碼錯誤"
    
24.     With Sheets("蓋棉被純聊天系統")
    
25.         For I = 3 To 5
    
26.             If CB = .Range("N" & I) And TB = .Range("O" & I) Then
    
27.                 確認密碼 = "密碼正確"
    
28.                 Exit For
    
29.             End If
    
30.         Next
    
31.   End With
    
32. End Function

複製代碼