Datumregistratie

[danny147]

Beste

Heb ooit eens de code gekregen van datumregistratie nl:

Private Sub Workbook_Open()
    Worksheets("Datums").Range("A1") = "Overzicht"
    Worksheets("Datums").Range("A" & Rows.Count).End(xlUp).Offset(1, 0) = Now
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    ThisWorkbook.Save
End Sub

Is het ook mogelijk om de User (LOG IN) van de PC hierbij te plaatsen ?

Groetjes Danny. :thumb:

 

[HSV]

Zo Danny.

Range("B1") = Environ("UserName")

 

[danny147]

Beste HSV

Bedankt

Groetjes Danny. :thumb: