Show file properties when opening a workbook

[Harry Archer]

Looking for a way to display a message box that displays file properties
(date created, modified, last accessed etc.) when opened.

Any ideas would be greatly appreciated.

Many thanks,

Harry.

 

[Bob Phillips]

Harry,

Put this code in the ThisWorkbook code module. There is no last access
propertyt to show I am afraid.

Private Sub Workbook_Open()

With ActiveWorkbook.BuiltinDocumentProperties
MsgBox "Author: " & .Item("Author") & vbCrLf & _
"Date created: " & .Item("Creation Date") & vbCrLf & _
"Date modified: " & .Item("Last Save Time")
End With

End Sub


--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)