ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Last modified user (https://www.excelbanter.com/excel-programming/410227-last-modified-user.html)

linglc

Last modified user
 
Does anyone know how I can return the user name who last modified a file via
VB codes in a spreadsheet?

Bob Phillips

Last modified user
 
'-----------------------------------------------------------------
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 use

MsgBox DocProps("last author")

--
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)

"linglc" wrote in message
...
Does anyone know how I can return the user name who last modified a file
via
VB codes in a spreadsheet?




Gregg Roberts

Last modified user
 
Hi Bob,

I need something like this -- the "Last Modified By" or "Last Author" value
-- but for a given file in a folder without opening it in Excel, and
regardless of what kind of file it is. The FileSystemObject doesn't seem to
support this, crazy as it seems. I've checked the properties of the File
object in Excel VBA Help and it doesn't seem to have anything that matches
this. I've bound the MS Scripting Runtime reference and tried:

LastModBy = FileItem.LastModified
LastModBy = FileItem.LastModifiedBy
LastModBy = FileItem.ModifiedBy
LastModBy = FileItem.Modified
LastModBy = FileItem.LastAuthor
LastModBy = FileItem.Author

All of them fail as soon as I try to step through.

--
Gregg Roberts


"Bob Phillips" wrote:

'-----------------------------------------------------------------
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 use

MsgBox DocProps("last author")

--
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)

"linglc" wrote in message
...
Does anyone know how I can return the user name who last modified a file
via
VB codes in a spreadsheet?






All times are GMT +1. The time now is 01:17 AM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com