logboek gebruikers datum en wijziging excel

[willem1984grave]

ik ben op zoek naar een VBA code voor een logboek.

ik heb momenteel een logboek voor revisie waarin in meerdere gebruikers gebruik maken van dit bestand.
ik wil graag zien in een apart werkblad wanneer het bestand voor het laatst geopend is en opgelsagen en door welke gebruiker.

kan iemand me hiermee helpen.

graag je reactie

 

[willem1984grave]

Tevens zou het handig zijn dat er een registratie gemaakt word.

 

[Cobbe]

Kijk eens of je hierin je gading kunt vinden.

 

[VenA]

Ongeveer hetzelfde als @Cobbe

Option Explicit

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Sheets(1).Cells(Rows.Count, 1).End(xlUp).Offset(0, 2) = Now()
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Sheets(1).Cells(Rows.Count, 1).End(xlUp).Offset(0, 3) = Now()
End Sub

Private Sub Workbook_Open()
    With Sheets(1).Cells(Rows.Count, 1).End(xlUp)
        .Offset(1, 0) = Environ("username")
        .Offset(1, 1) = Now()
    End With
End Sub

 

[willem1984grave]

Cobbe,

deze oplossing ziet er goed uit. kunnen we ook kolom erbij voegen of er iets is in aangepast?

@ VenA ik zal deze ook eens proberen.

 

[VenA]

Ik zie één belangrijk verschil tussen de code van @Cobbe en mijn geknutsel. @Cobbe gebruikt "Application.UserName" dit is de naam die je op kan geven in Excel. Zelf heb ik "Environ("username")" gebruikt. Dit is de gebruikersnaam waarmee iemand zich aanmeldt bij windows. De gebruikersnaam binnen Excel is vrij eenvoudig aan te passen terwijl het wat lastiger is om je gebruikersnaam onder windows te wijzigen.

 

[willem1984grave]

VenA,

inderdaad ik heb nu in de versie van Cobbe "Environ("username")" toegepast werk daarin ook. Dan heb je een betere beveiliging voor de gebruikersnaam.
heb je ook enig idee of we er een vermelding bij kunnen plaatsen of de user een aanpassing heeft gemaakt in een vorm van ja of nee bijvoorbeeld.

 

[Cobbe]

Kijk eens of dit voldoende is.