Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
"LAST SAVED BY".... (Help)
HI, I´M NEEDING HELP FOR GETTING THE \"LAST SAVED BY\" FOR A SHARE EXCEL FILE AND PLACE IT IN A CELL... SO FAR I COULD GET THE \"AUTHOR\" NAME WITH _=GETPROPERTY(\\"AUTHOR\\")__USING THE FOLLOWING PUBLIC FUNCTION -Public Function GetProperty(P As String, Optional WorkbookName A Variant) Dim S As Variant Dim WB As Workbook On Error Resume Next If IsMissing(WorkbookName) Then If TypeOf Application.Caller Is Range Then Set WB = Application.Caller.Parent.Parent Else Set WB = ActiveWorkbook End If Else Set WB = Workbooks(WorkbookName) End If S = WB.CustomDocumentProperties(P) If S < "" Then GetProperty = S Exit Function End If On Error GoTo EndMacro GetProperty = WB.BuiltinDocumentProperties(P) Exit Function EndMacro: GetProperty = "" End Function- THANKS :) IN ADVANCE FOR ANY HELP YOU MAY SEND. ---------------------------------------------------------------- -- cid ----------------------------------------------------------------------- cidc's Profile: http://www.excelforum.com/member.php...fo&userid=3515 View this thread: http://www.excelforum.com/showthread.php?threadid=54918 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
"LAST SAVED BY".... (Help)
Use Last Author rather than Author.
-- HTH Bob Phillips (replace somewhere in email address with gmail if mailing direct) "cidc" wrote in message ... HI, I´M NEEDING HELP FOR GETTING THE \"LAST SAVED BY\" FOR A SHARED EXCEL FILE AND PLACE IT IN A CELL... SO FAR I COULD GET THE \"AUTHOR\" NAME WITH: _=GETPROPERTY(\\"AUTHOR\\")__USING THE FOLLOWING PUBLIC FUNCTION: -Public Function GetProperty(P As String, Optional WorkbookName As Variant) Dim S As Variant Dim WB As Workbook On Error Resume Next If IsMissing(WorkbookName) Then If TypeOf Application.Caller Is Range Then Set WB = Application.Caller.Parent.Parent Else Set WB = ActiveWorkbook End If Else Set WB = Workbooks(WorkbookName) End If S = WB.CustomDocumentProperties(P) If S < "" Then GetProperty = S Exit Function End If On Error GoTo EndMacro GetProperty = WB.BuiltinDocumentProperties(P) Exit Function EndMacro: GetProperty = "" End Function- THANKS :) IN ADVANCE FOR ANY HELP YOU MAY SEND.- ----------------------------------------------------------------- -- cidc ------------------------------------------------------------------------ cidc's Profile: http://www.excelforum.com/member.php...o&userid=35154 View this thread: http://www.excelforum.com/showthread...hreadid=549183 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
"LAST SAVED BY".... (Help)
THANK YOU, VERY MUCH BOB... I'VE TRYED, AND IT DID WORK IN THE LOCAL COMPUTER(WHERE THE FILE IS), WHEN I MAKE THE CHANGES ON A NETWORKED COMPUTER AND SAVED IT, IT KEEPS ALWAYS THE LOCAL USER'S NAME EVEN THOUGH THE \"FILE PROPERTIES - STATISTICS\" SHOWS THE REMOTE COMPUTER'S USER NAME... ANY IDEA WHY IT DOES NOT UPDATE THE \"LAST AUTHOR\" NAME? REGARDS, AND THANKS AGAIN... Bob Phillips Wrote: Use Last Author rather than Author. -- HTH Bob Phillips -- cidc ------------------------------------------------------------------------ cidc's Profile: http://www.excelforum.com/member.php...o&userid=35154 View this thread: http://www.excelforum.com/showthread...hreadid=549183 |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
"LAST SAVED BY".... (Help)
i just use
Range("K2").Value = "Saved by " & Environ("UserName") in a workbook_beforesave module what's wrong with this? works for my needs -- Gary "Bob Phillips" wrote in message ... Use Last Author rather than Author. -- HTH Bob Phillips (replace somewhere in email address with gmail if mailing direct) "cidc" wrote in message ... HI, I´M NEEDING HELP FOR GETTING THE \"LAST SAVED BY\" FOR A SHARED EXCEL FILE AND PLACE IT IN A CELL... SO FAR I COULD GET THE \"AUTHOR\" NAME WITH: _=GETPROPERTY(\\"AUTHOR\\")__USING THE FOLLOWING PUBLIC FUNCTION: -Public Function GetProperty(P As String, Optional WorkbookName As Variant) Dim S As Variant Dim WB As Workbook On Error Resume Next If IsMissing(WorkbookName) Then If TypeOf Application.Caller Is Range Then Set WB = Application.Caller.Parent.Parent Else Set WB = ActiveWorkbook End If Else Set WB = Workbooks(WorkbookName) End If S = WB.CustomDocumentProperties(P) If S < "" Then GetProperty = S Exit Function End If On Error GoTo EndMacro GetProperty = WB.BuiltinDocumentProperties(P) Exit Function EndMacro: GetProperty = "" End Function- THANKS :) IN ADVANCE FOR ANY HELP YOU MAY SEND.- ----------------------------------------------------------------- -- cidc ------------------------------------------------------------------------ cidc's Profile: http://www.excelforum.com/member.php...o&userid=35154 View this thread: http://www.excelforum.com/showthread...hreadid=549183 |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
"LAST SAVED BY".... (Help)
Can you turn off Caps Lock please?
I don't understand your point. What Remote user? -- HTH Bob Phillips (replace somewhere in email address with gmail if mailing direct) "cidc" wrote in message ... THANK YOU, VERY MUCH BOB... I'VE TRYED, AND IT DID WORK IN THE LOCAL COMPUTER(WHERE THE FILE IS), WHEN I MAKE THE CHANGES ON A NETWORKED COMPUTER AND SAVED IT, IT KEEPS ALWAYS THE LOCAL USER'S NAME EVEN THOUGH THE \"FILE PROPERTIES - STATISTICS\" SHOWS THE REMOTE COMPUTER'S USER NAME... ANY IDEA WHY IT DOES NOT UPDATE THE \"LAST AUTHOR\" NAME? REGARDS, AND THANKS AGAIN... Bob Phillips Wrote: Use Last Author rather than Author. -- HTH Bob Phillips -- cidc ------------------------------------------------------------------------ cidc's Profile: http://www.excelforum.com/member.php...o&userid=35154 View this thread: http://www.excelforum.com/showthread...hreadid=549183 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
i "saved" instead of "saved as". I need old file back | Excel Discussion (Misc queries) | |||
"Document not saved" "error in loading DLL" | Excel Discussion (Misc queries) | |||
Excel - Golf - how to display "-2" as "2 Under" or "4"as "+4" or "4 Over" in a calculation cell | Excel Discussion (Misc queries) | |||
Solution "Your changes could not be saved" "The document may be read-only or encrypted" | Excel Discussion (Misc queries) | |||
.csv drops "0" when saved, even if file was set as "text". | Excel Discussion (Misc queries) |