[Iska]

Код:

Private Sub Workbook_Open()
    Dim objWorksheet As Worksheet
    
    With ThisWorkbook
        For Each objWorksheet In .Worksheets
            objWorksheet.PageSetup.CenterHeader = .BuiltinDocumentProperties.Item("Last Save Time")
        Next
    End With
End Sub