Aanpassen van voettekst

[Evelthoven]

Goedemiddag,

Op het werk hebben we op de R-schijf (een schijf die door iedereen van de afdeling te gebruiken is) een excel bestand staan met daarin een Aangepaste voettekst. We hebben Microsoft 2010.
De aangepaste voettekst is alsvolgt: "laatste wijziging op &[Datum]".
Mijn vraag is nu of het mogelijk is om in deze tekst ook de naam te kunnen zien van degene die de laatste wijziging heeft aangebracht. Dus welke collega.
Het zou dus moeten worden: "laatste wijziging op &[Datum] door NAAM VAN COLLEGA".

Ik ben benieuwd of het kan.

Alvast bedankt.

Met vriendelijke groeten,
Eric

 

[Timshel]

Om dat in de voettekst te krijgen is VBA nodig. Uit de documenteigenschappen kun je altijd halen wie als laatste heeft opgeslagen.

 

[Evelthoven]

Hallo Timshel,

Deze mogelijkheid ken ik, maar dit bestand wordt dagelijks op papier afgedrukt en opgehangen. Dan zou het fijn zijn als dan voor iedereen zichtbaar is wie als laatste een wijziging heeft aangebracht.

 

[edmoor]

Zoiets wellicht. Dat is denk ik ook wat Timshel bedoelt:

Private Sub Private Sub Workbook_AfterSave(ByVal Success As Boolean)
    LST = ActiveWorkbook.BuiltinDocumentProperties("Last Save Time")
    LAT = ActiveWorkbook.BuiltinDocumentProperties("Last Author")
    
    For Each sht In ActiveWorkbook.Worksheets
        sht.PageSetup.LeftFooter = ""
        sht.PageSetup.CenterFooter = "Laatste wijziging op " & LST & " door " & LAT
        sht.PageSetup.RightFooter = ""
        sht.DisplayPageBreaks = False
        Success = True
    Next sht
End Sub

 

[Evelthoven]

Beste Edmoor,

Als ik maandag op het werk ben ga ik het testen.
Bedankt zover.

 

[edmoor]

Ik heb 'm in de Workbook_AfterSave gezet.
Misschien dat dat niet het beste moment is en je een andere moet gebruiken.
De code zelf blijft gelijk.