Show file properties when opening a workbook

  • Thread starter Thread starter Harry Archer
  • Start date Start date
H

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.
 
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)
 
Back
Top