Changing the File Date Created and Date Modified

[ghettosega]

Hi there

Is there a way I could change the File Date Created/Modified so that when I look at the properties of the file it would be changed???

 

[Jaafar Tribak]

Hi,

Try this :

 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

The two Properties are actually Read & Write so as the code shows, you can easily set them via code.

Regards.