Excel Forum

Code: Select all

Dim i As Integer
Private Sub CommandButton1_Click()
    Dim username, password As String
    
    username = TextBox1.Text
    password = TextBox2.Text
    
    If username = "username" And password = "password" Then
        MsgBox "ÂÔ¹´Õµé͹ÃѺà¢éÒÊÙèÃкº", vbInformation
        Unload Me 'unload this form
    Else
        i = i + 1
        If i < 3 Then
            MsgBox "Username ËÃ×Í Password äÁè¶Ù¡µéͧ", vbCritical
            'now close the workbook
        Else
            Application.DisplayAlerts = False
            Application.Quit
        End If
    End If
End Sub