VBA: Registar automaticamente o nome do último utilizador e data e hora

Private Sub Workbook_Open()

Dim ExcelLastSavedBy As String
Dim dInput As String

ExcelLastSavedBy = ThisWorkbook.BuiltinDocumentProperties(“Last Author”)

dInput = ActiveWorkbook.BuiltinDocumentProperties.Item(“Last Save Time”)
Sheets(3).Range(“G” & Rows.Count).End(xlUp).Offset(1, 0).Value = ExcelLastSavedBy & ” – ” & dInput

ThisWorkbook.Save

End Sub