Retrieving User of Last Save

[Ruan]

Hello,

I would like to the User of the Last Save displayed in Cell A10014. At this
time I have the Author, which is incorrect.

The below code is in "This Workbook" code module

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)

[Billing!A1012] =
ActiveWorkbook.BuiltinDocumentProperties("Subject").Value
[Billing!A1013] = Now()
[Billing!A1014] = ActiveWorkbook.Author
End Sub


Thanks
Ruan

 

[Bob Phillips]

Ruan,

Try

ActiveWorkbook.BuiltinDocumentProperties("Last Author")

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

 

[Ruan]

Thanks Bob.

I also stumbled across

ActiveWorkbook.UserStatus

which seems to work.

Ruan

Ruan,

Try

ActiveWorkbook.BuiltinDocumentProperties("Last Author")

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

Hello,

I would like to the User of the Last Save displayed in Cell A10014. At this
time I have the Author, which is incorrect.

The below code is in "This Workbook" code module

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)

[Billing!A1012] =
ActiveWorkbook.BuiltinDocumentProperties("Subject").Value
[Billing!A1013] = Now()
[Billing!A1014] = ActiveWorkbook.Author
End Sub


Thanks
Ruan