Creation Date Inserted

[Mark Gaff]

I have a workbook that is used as a template and is read-only. When someone opens the workbook they start a new project and are required to save it with a new name. I would like the date the new file is opened to be displayed. (Not the date I originally created or updated the template file.)

Thanks for your help.

 

[stnkynts]

Private Sub Workbook_Open()
Sheets(1).Range("A1").Value = Date
End Sub

I arbitrarily put it in cell A1 but it could be put anywhere. Should work with read only.

 

[lenze]

When you save the template as a new workbook, it will assign a new "creation date", so this should work

Private Sub Workbook_Open()
Sheet1.Range("A1") = BuiltinDocumentProperties("creation date")
End Sub

lenze

 

[C5X2C]

Greetings. I have the same reqeust,,,, I would like the BuiltinDocumentProperties "Creation Date" to reflect the first time that a template I've created is newly saved,,, just the first time.

I'm a bit confused here, the two replies below don't seem to do what I'd like. I have been unable to change the "Creation Date" even with Properties Plus.

With the file open, File -> Properties - The General tab has a "Created" date that I can change but the Statistics tab has a "Created" date that I can't change. This "Created Date" on the Statistics tab appears to be the BuiltInDocumentsProperties field that I'm looking for.

On a logic issue, how can the "Creation Date" change for only the first time and not subsequest openings? I don't follow.

Thanks for your help!