Retrieving User of Last Save

  • Thread starter Thread starter Ruan
  • Start date Start date
R

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
 
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)
 
Thanks Bob.

I also stumbled across

ActiveWorkbook.UserStatus

which seems to work.

Ruan



Bob Phillips said:
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 said:
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
Click to expand...
Click to expand...
 
Back
Top