Snasui Excel Forum

Code: Select all

Private Sub CommandButton1_Click()
    Do
    i = i + 1
    Loop Until Worksheets("Sheet1").Cells(i, 1) = ""
       Worksheets("Sheet1").Cells(i, 3) = TextBox1.Text
       Worksheets("Sheet1").Cells(i, 4) = TextBox2.Text
       Worksheets("Sheet1").Cells(i, 1) = Date
       Worksheets("Sheet1").Cells(i, 2) = Time()
    
    Dim username, password As String
    username = TextBox1.Text
    password = TextBox2.Text
    up = True
    If username = "abc" And password = "123" Then  'username และpassword ที่เข้าได้ หากมีเพิ่มให้เพิ่มส่วนนี้ต่อไปเรื่อยๆ
        Me.TextBox1.Text = ""
        Me.TextBox2.Text = ""
        UserForm1.Hide 'สุกัญญา
        UserForm2.Show
    ElseIf username = "def" And password = "456" Then
        Me.TextBox1.Text = ""
        Me.TextBox2.Text = ""
        UserForm1.Hide
        UserForm2.Show 'unload this form
    ElseIf username = "ghi" And password = "789" Then
        Me.TextBox1.Text = ""
        Me.TextBox2.Text = ""
        UserForm1.Hide
        UserForm2.Show  'unload this form
    Else
        MsgBox "UserName หรือ Password ไม่ถูกต้อง", vbCritical, "แจ้งเตือน"
        ThisWorkbook.Save
        Me.TextBox1.Text = ""
        Me.TextBox2.Text = ""
    End If
End Sub