ricohard73
Gebruiker
- Lid geworden
- 27 jun 2007
- Berichten
- 23
Goedemiddag,
Voor het registreren van het gebruik maak ik gebruik van onderstaande code.
Is het ook mogelijk om per gebruiker een eigen werkblad toe te wijzen ipv alleen blad3?
Voor het registreren van het gebruik maak ik gebruik van onderstaande code.
Is het ook mogelijk om per gebruiker een eigen werkblad toe te wijzen ipv alleen blad3?
Code:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayAlerts = False
rij = Sheets("Blad3").Range("A1000").End(xlUp).Row + 1
Sheets("Blad3").Range("A" & rij) = Date
Sheets("Blad3").Range("B" & rij) = Time
Sheets("Blad3").Range("C" & rij) = Application.UserName
Sheets("Blad3").Range("D" & rij) = ThisWorkbook.Name
Application.SaveWorkspace
Application.DisplayAlerts = True
End Sub
Code:
Private Sub Workbook_Open()
rij = Sheets("Blad3").Range("B1000").End(xlUp).Row + 1
Sheets("Blad3").Range("E" & rij) = Date
Sheets("Blad3").Range("F" & rij) = Time
Sheets("Blad3").Range("G" & rij) = Application.UserName
Sheets("Blad3").Range("H" & rij) = ThisWorkbook.Name
End Sub
Laatst bewerkt door een moderator: