Snasui Excel Forum

Code: Select all

Private Sub CommandButton1_Click()
Dim username As String
Dim password As String
    usernane = TextBox1.Text
    password = TextBox2.Text
    'if textbox1.text="abc" and textbox2.text="123"then
     'msgbox("OK")
Dim info
     info = isworkbookopen("G:\Userform\login.xlsx")
     'we open the work book
 If info = False Then
       Workbooks .Open("G:\Userform\login.xlsx")
End If
Dim x As Integer
     x = 2
     Do While Cells(x, 1).Value <> ""
If Cells(x, 1).Value = username And Cells(x, 2).Value = password Then
     MsgBox "Welcome"
      Sheet1 , Range("A1").Value = Date & " " & Time
      Selection.NumberFormat = "dd/m/YYYY h:mm am/pm"
     UserForm1.Hide
      ActiveWorkbook.Close True
 End
 Else
       x = x + 1
 End If
 
 Loop
      MsgBox "please check your username or password"
       ActiveWorkbook.Close True
       TextBox1.Text = ""
       TextBox2.Text = ""
       TextBox1.SetFocus
 
       'else
      'msgbox "wrong username or password"
       'TextBox1.Text = ""
      'TextBox2.Text = ""
        'TextBox1.SetFocus
      'endif
 
 

End Sub

Code: Select all

Sub getlogindata()
Dim info
info = isworkbookopen("G:\Userform\login.xlsx")
'we open the workbook if it is close
If info = fasle Then
Workbooks.Open ("G:\Userform\login.xlsx")
End If
Worksheets("sheet1").Activate
erow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
ActiveSheet.Paste Destination = Worksheets("sheet1").Range(Cells(erow, 1), Cells(erow, 2))

ActiveWorkbook.Save
ActiveWorkbook.Close
Application.Quit

End Sub

Code: Select all

Private Sub CommandButton1_Click()
Dim username As String
Dim password As String
usernane = TextBox1.Text
password = TextBox2.Text
'if textbox1.text="abc" and textbox2.text="123"then
'msgbox("OK")
Dim info
info = isWorkbooks.Open("G:\Userform\login.xlsx")
'we open the work book
If info = False Then
Workbooks = .Open("G:\Userform\login.xlsx")
End If
Dim x As Integer
x = 2
Do While Cells(x, 1).Value <> ""
If Cells(x, 1).Value = username And Cells(x, 2).Value = password Then
MsgBox "Welcome"
Sheet1 , Range("A1").Value = Date & " " & Time
Selection.NumberFormat = "d/m/YYYY h:mm am/pm"
 UserForm1.Hide
 ActiveWorkbook.Close True
 End
 Else
 x = x + 1
 End If
 
 Loop
 MsgBox "please check your username or password"
 ActiveWorkbook.Close True
 TextBox1.Text = ""
 TextBox2.Text = ""
 TextBox1.SetFocus
 
 'else
 'msgbox "wrong username or password"
 'TextBox1.Text = ""
 'TextBox2.Text = ""
 'TextBox1.SetFocus
 'endif
 
 

End Sub

Code: Select all

Private Sub CommandButton2_Click()
Sheet1.Range("b1").Value = Date & " " & Time
Selection.NumberFormat = "d/m/yyyy h;mm Am/Pm"
ThisWorkbook.Save
Worksheets("sheet1").Range("A1:b1").Select
Selection.Cut
Unload Me
getlogindata

'Application,displayAlerts = false
ActiveWorkbook.Close True
'Application.Quit
'application.displayalerts = true



End Sub

Code: Select all

Private Sub CommandButton1_Click()
Dim username As String
Dim password As String
usernane = TextBox1.Text
password = TextBox2.Text
'if textbox1.text="abc" and textbox2.text="123"then
'msgbox("OK")
Dim info
info = isWorkbooks.Open("G:\Userform\login.xlsx")
'we open the work book
If info = False Then
Workbooks.Open ("G:\Userform\login.xlsx")
End If
Dim x As Integer
x = 2
Do While Cells(x, 1).Value <> ""
If Cells(x, 1).Value = username And Cells(x, 2).Value = password Then
MsgBox "Welcome"
Sheet1.Range("A1").Value = Date & " " & Time
Selection.NumberFormat = "d/m/YYYY h:mm am/pm"
 UserForm1.Hide
 ActiveWorkbook.Close True
 End
 Else
 x = x + 1
 End If
 
 Loop
 MsgBox "please check your username or password"
 ActiveWorkbook.Close True
 TextBox1.Text = ""
 TextBox2.Text = ""
 TextBox1.SetFocus
 
 'else
 'msgbox "wrong username or password"
 'TextBox1.Text = ""
 'TextBox2.Text = ""
 'TextBox1.SetFocus
 'endif
 
 

End Sub

Code: Select all

Private Sub Workbook_BeforeClose(Cancel As Boolean)
UserForm1.CommandButton2.Visible = True
UserForm1.CommandButton1.Visible = False
UserForm1.TextBox1.Visible = False
UserForm1.TextBox2.Visible = False
UserForm1.Label1.Visible = False
UserForm1.Label2.Visible = False
UserForm1.Show
End Sub

Code: Select all

Private Sub CommandButton1_Click()
Dim username As String
Dim password As String
'usernane = TextBox1.Text

'จาก Statement usernane = TextBox1.Text ให้เปลี่ยนเป็น username = TextBox1.Text
username = TextBox1.Text
password = TextBox2.Text
'if textbox1.text="abc" and textbox2.text="123"then
'msgbox("OK")
Dim info
'info = isWorkbooks.Open("G:\Userform\login.xlsx")
info = isworkbookopen("G:\Userform\login.xlsx")
'we open the work book
If info = False Then
Workbooks.Open ("G:\Userform\login.xlsx")
End If
Dim x As Integer
x = 2
Do While Cells(x, 1).Value <> ""
'If Cells(x, 1).Value = username And Cells(x, 2).Value = password Then
'จาก Statement If Cells(x, 1).Value = username And Cells(x, 2).Value = password Then เปลี่ยนเป็น If Cells(x, 1).Value = username And CStr(Cells(x, 2).Value) = password Then
If Cells(x, 1).Value = username And CStr(Cells(x, 2).Value) = password Then
MsgBox "Welcome"
Sheet1.Range("A1").Value = Date & " " & Time
Selection.NumberFormat = "d/m/YYYY h:mm am/pm"
 UserForm1.Hide
 Workbooks.Open filename:="G:\UserForm\login.xlsx"
 Workbooks("username-password.xlsm").Close
 
 End
 Else
 x = x + 1
 End If
 
 Loop
 MsgBox "please check your username or password"
 ActiveWorkbook.Close True
 TextBox1.Text = ""
 TextBox2.Text = ""
 TextBox1.SetFocus
 
 'else
 'msgbox "wrong username or password"
 'TextBox1.Text = ""
 'TextBox2.Text = ""
 'TextBox1.SetFocus
 'endif
 
 

End Sub

Code: Select all

'Other code
Dim check As Boolean
Do While Cells(x, 1).Value <> ""
    If Cells(x, 1).Value = username And CStr(Cells(x, 2).Value) = password Then
        check = True
        MsgBox "Welcome"
        Sheet1.Range("A1").Value = Date & " " & Time
        Selection.NumberFormat = "d/m/YYYY h:mm am/pm"
        UserForm1.Hide
        Workbooks.Open filename:="G:\UserForm\login.xlsx"
        Workbooks("username-password.xlsm").Close
        Exit Sub
    Else
        x = x + 1
    End If
Loop
If Not check Then
    MsgBox "please check your username or password"
    ActiveWorkbook.Close True
End If
'Other code