How to create an access log?

HI, I am attaching a sheet which is reachable by a macro where the user is Jorge and Password is 1.
Within the sheet appear 3 frames, 1 has access, the 2nd who is using the sheet at the time and the 3rd the registration of persons entering the sheet.

What I want, is a macro that was connected to the frame 1 (this is not) with multiple accesses, which registers the person who is using the sheet at the time, which created a history with the records of the days and times of access the sheet.

Thank you for help.

Best regards, jorge.

Hi Solus, I was watching the sheet and makes user registration "Jorge" and notes its entry.

But, I want the users who are in Table 1 have access to the respective passwords, and the user's log entry is saved in the Last entry generating a history.

Thanks Solus.

Best regards, Jorge.

Hi Solus, I need to add more users to the macro and do not know it, so for example, those in Table 1 have access to the sheet.

Hi Solus, passwords work perfect but the historical records of access does not, I made a change to the macro and i want you to see and comment.

I could not attach the sheet, so you must copy the macro to "LoginRegist (1) (1)"

Best regards, Jorge


Private Sub Cancelar_Click()
Application.Quit

End Sub

Private Sub Entrar_Click()
Dim rng As Range


With Sheets("Folha1")
For Each rng In .Range("A2:A" & .Range("A" & .Rows.Count).End(xlUp).Row)
If Me.TextBox1.Value = rng.Value Then
If Me.TextBox2.Value = rng.Offset(, 1).Value Then
Unload UserForm1
Application.Visible = True
Range("D2").Value = TextBox1.Value
Range("E2").Value = Date
Range("F2").Value = Time
Range("D2:F2").Select
Selection.Copy
Range("G1").Select
Selection.Insert Shift:=xlDown
Range("D4").Select
Application.CutCopyMode = False
Else:
MsgBox "Either username or password is incorrect. Please try again."
Exit Sub
End If
End If
Next rng
End With
End Sub

Private Sub TextBox1_Change()

End Sub

Private Sub UserForm_initialize()
Application.Visible = False

End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = vbFormControlMenu Then
Cancel = True
End If
End Sub

Almost perfect, when I'm on another sheet other than Sheet1, it will record the history in this and not in Sheet1.

You can not make a historical record only in Sheet1?

Attempts to save and exit the sheet 2, when you enter will add the record in sheet 2 and not in Sheet1.

Perfect Solus, thank you very much for your help.

Best regards, Jorge.