GBKEE

¦^´_ 3# die78325
¥t¦bvba¤¤´¡¤J[¤@¯ëModule] ªº¼Ò²Õ

1. Option Explicit
   
2. Public no As Integer  '«Å§i ¿ù»~¦¸¼Æ¬°[¤@¯ëModule]ªº¤½¥ÎÅܼÆ

½Æ»s¥N½X

1. Option Explicit
   
2. Private Sub UserForm_Initialize()
   
3.     BoxUser.Font.Size = 16
   
4. End Sub
   
5. Private Sub CmdLogin_Click()
   
6.     With BoxUser
   
7.         If .Value = "" Then MsgBox "½Ð¿é¤J¸³¨Æªø©m¦W¡I": Exit Sub '¦pªG¬°ªÅ¥Õ
   
8.         If .Value <> "­s§µºû" Then      '¦pªG¿é¤J¿ù»~
   
9.             MsgBox "¿é¤J¿ù»~¡I": Module1.no = Module1.no + 1
   
10.             If Module1.no = 3 Then
    
11.                 MsgBox "©êºp¡I±z¨S¦³¨Ï¥ÎÅv­­¡I"
    
12.               '  ThisWorkbook.Close SaveChanges:=False
    
13.                 Application.DisplayAlerts = False
    
14.                 Application.Quit        'Ãö³¬Excel
    
15.             End If
    
16.         Else
    
17.             Module1.no = 0                      '¿ù»~¦¸¼Æ Âk¹s
    
18.         End If
    
19.     End With
    
20.     Unload Me
    
21. End Sub

½Æ»s¥N½X