File Properties

[Kai Drechsler]

Hello NG,

I´m looking for a method to display the file properties (for example: last
saved by; developed by) in a cell.

Has somebody an idea?

Thanks in advance.

 

[Dude]

try to put this in your "ThisWorkbook module" :

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
Cells(1, 1).Value = Me.Author
Cells(2, 1).Value = Me.UserStatus(1, 1)
Cells(3, 1).Value = Me.UserStatus(1, 2)
End Sub