Sub Test()
With ThisWorkbook
'\\ Display Real creation date
MsgBox "Creation Date : " & _
Format(.BuiltinDocumentProperties("Creation Date"), "Long Date")
'\\ Set Fake creation Date :- Minus 1 Year !
.BuiltinDocumentProperties("Creation Date") _
= Format(DateAdd("yyyy", -1, Date), "Long date")
'\\ Display Fake creation Date
MsgBox "Fake Creation Date : " & _
Format(.BuiltinDocumentProperties("Creation Date"), "Long Date")
'\\ Save Workbook
.Save
'\\ Display Real Last Save Time
MsgBox "Last Saved at : " & .BuiltinDocumentProperties("Last save time")
'\\ Set Fake Last Save Time :- Minus 10 Hours !
.BuiltinDocumentProperties("Last save time") = Date & " " & Time + TimeSerial(-10, 0, 0)
'\\ Display Fake Last Save Time
MsgBox " Fake Last Save Time changed to : " & .BuiltinDocumentProperties("Last save time")
End With
End Sub