Last Saved By
'-----------------------------------------------------------------
Function DocProps(prop As String)
'-----------------------------------------------------------------
Application.Volatile
On Error GoTo err_value
DocProps = ActiveWorkbook.BuiltinDocumentProperties _
(prop)
Exit Function
err_value:
DocProps = CVErr(xlErrValue)
End Function
and enter in a cell such as
=DocProps ("last author")
or
=DocProps ("last save time")
or in VBA
Private Sub Workbook_BeforePrint(Cancel As Boolean)
With ActiveSheet.PageSetup
.LeftFooter = DocProps("last save time")
End With
End Sub
Private Sub Workbook_Open()
End Sub
'This is workbook event code.
'To input this code, right click on the Excel icon on the worksheet
'(or next to the File menu if you maximise your workbooks),
'select View Code from the menu, and paste the code
--
__________________________________
HTH
Bob
"KKM" wrote in message
...
I have files used by multiple people in my company. I need to have a
function (preferably in a footer) that tells who last saved the file. I
see
where to get the last saved date and several other functions, but not who
saved it last.
Please help, this is driving me crazy....
|