Datum laatste save/afsluiten bewaren

[Abyss]

Hallo,

Ik heb een Excel bestand wat gedeeld is.
Nu wil ik geen wijzigenen bijhouden met kleurtjes enzo.
Maar wil wel graag weten wanneer er voor het laatst in dit bestand is gewerkt.
Ik zou dus graag in een bepaalde cel, laten we zeggen A7 een formule willen die de datum en tijd weer geeft van de laaste bewerking. Kan dat??

Het Excel document word wel iedere 15 minuten automatische opgeslagen, als het in gebruik is.

Wie kan mij helpen??


ABYSS

 

[snb]

Niet met een formule maar met VBA

Range("A7") = ActiveWorkbook.BuiltinDocumentProperties(12)

 

[Abyss]

Ja ik had zelf al dit geprobeerd

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Blad1("Blad1").Range("H7").Value = Format(Now(), "dd-mm-yy hh:mm")
End Sub

Maar op de een of andere manier werkt dirt niet.
Enig idee wat ik fout doe??

 

[snb]

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
  [Blad1!H7] = Format(Date, "dd-mm-yy hh:mm")
End Sub

 

[Wigi]

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
'[B]Worksheets[/B]("Blad1").Range("H7").Value = ...
End Sub

 

[Abyss]

Bedankt voor al jullie suggesties ik heb er weer veel van geleerd
Bedankt daar voor.

Hiermee is mijn probleempje opgelost
:thumb::thumb::thumb:


Abyss