Excel: Get Last Author aus BuiltInDocumentProperties

Nachtrag

Zum Thema Overkill... whahahaha was ist schon Overkill. Den Filewatcher auf das Log ausrichten und auf Änderung überwachen. Dann die letzte Zeile lesen und du weißt was du wissen wolltest.

Diese wenigen Zeilen erzeugen schonmal ein Minilog. Sicher kann man das noch aufhübschen...
Das mit dem feststellen, ob gespeichert wurde klappt leider nur, wenn der User auch selbst vor Beenden speichert. Klickt man auf das X rechts oben, wird nicht mehr registriert ob Änderungen gespeichert/verworfen werden. Daher hab ichs auch mal weggelassen.

Code:

' kopieren in "DieseArbeitsmappe"
Option Explicit

Dim sTimeOpen  As String
Dim sTimeClose As String
Dim sSaved     As String
Dim sUsername  As String

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Dim sLine As String
    sTimeClose = CStr(Now())
    sLine = sTimeOpen & vbTab & sTimeClose & vbTab & sUsername & vbCrLf
    
    Call Log(sLine, ThisWorkbook.path & "\Log.txt")
End Sub

Private Sub Workbook_Open()
    sUsername = Environ("username")
    sTimeOpen = CStr(Now())
    sSaved = "No"
End Sub

Private Sub Log(msg As String, path As String)
    Dim iFileNumber As Long

    iFileNumber = FreeFile()
    Open path For Append As #iFileNumber
        Print #iFileNumber, msg
    Close #iFileNumber
End Sub

Gruß SeBa