Home |
Search |
Today's Posts |
#1
|
|||
|
|||
Can I display the file properties of a workbook in a custom headi.
I am sharing a workbook with another user where I work and we both make
changes to it on a regular basis. I am wondering if there is a function that can display the name of the last person who saved it and the last date it was saved so that we don't have to go into the header and manually update this information each time we change something in the workbook. Thanks! |
#2
|
|||
|
|||
Sings
User Defined Function, not built-in. 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 In A1 enter =DOCPROPS("author") In B1 enter =DOCPROPS("last save time") Then run this macro Sub CellInFooter() With ActiveSheet .PageSetup.RightFooter = .Range("A1").Text & _ " " & .Range("B1").Text End With End Sub Gord Dibben Excel MVP On Fri, 15 Apr 2005 13:17:01 -0700, Sings4Fun wrote: I am sharing a workbook with another user where I work and we both make changes to it on a regular basis. I am wondering if there is a function that can display the name of the last person who saved it and the last date it was saved so that we don't have to go into the header and manually update this information each time we change something in the workbook. Thanks! |
#3
|
|||
|
|||
A much shortened version without the cells being populated.
Mis-read original question. So what else is new?<g Sub footer() ActiveSheet.PageSetup.RightFooter = _ ActiveWorkbook.BuiltinDocumentProperties("last author") _ & " " & ActiveWorkbook.BuiltinDocumentProperties("last save time") End Sub Gord On Fri, 15 Apr 2005 16:32:10 -0700, Gord Dibben <gorddibbATshawDOTca wrote: Sings User Defined Function, not built-in. 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 In A1 enter =DOCPROPS("author") In B1 enter =DOCPROPS("last save time") Then run this macro Sub CellInFooter() With ActiveSheet .PageSetup.RightFooter = .Range("A1").Text & _ " " & .Range("B1").Text End With End Sub Gord Dibben Excel MVP On Fri, 15 Apr 2005 13:17:01 -0700, Sings4Fun wrote: I am sharing a workbook with another user where I work and we both make changes to it on a regular basis. I am wondering if there is a function that can display the name of the last person who saved it and the last date it was saved so that we don't have to go into the header and manually update this information each time we change something in the workbook. Thanks! |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Creating Linked Workbook file name using cell variables | Excel Worksheet Functions | |||
Excel workbook fails to display when selecting from my documents. | Excel Worksheet Functions | |||
Workbook and sheets have disappeared but file can open | Excel Discussion (Misc queries) | |||
Cannot display Workbook | Excel Discussion (Misc queries) | |||
Conditional display of a .jpeg file? | Excel Discussion (Misc queries) |