How do i review who has opened a file with password and made changes?

I suspect there's a faster/more elegant way, but off the top of my head:

Function LastSavedBy(sFilePath As String) As String
With Application
    .DisplayAlerts = False
    .ScreenUpdating = False
    
    With GetObject(sFilePath)
        LastSavedBy = .BuiltinDocumentProperties("Last Author")
        .Close False
    End With
    
    .DisplayAlerts = True
    .ScreenUpdating = True
End With
End Function