Shared Workbook

[Martin]

Hello,

I am trying to find out how to get the details of all users logged in to a
shared workbook.

This information is available in Excel via the Tools | Share Woorkbook menu
but I need to find out how to get that list of user names. I assume Excel is
using Environ("username").

Does anyone have any ideas?

Thanks in advance.

Martin

 

[The Code Cage Team]

Excel uses Application.Username but any user can chage their Excel nam
anytime they want in the options, so its best to use Environ(username)
just use it in the workbook open event to write to a hidden worksheet
add a sheet and call it Names then use this in the workbook_open event:

Code
-------------------
With ThisWorkbook.Worksheets("Names").Cells(Rows.Count, "A").End(xlUp)
.offset(1, 0).Value = Environ("username")
.offset(1, 1).Value = Format(Now, "ddd dd mmmm yyyy")
.offset(1, 2).Value = Format(Now, "hh:mm")
End Wit
-------------------

Hello,

I am trying to find out how to get the details of all users logged i
to a
shared workbook.

This information is available in Excel via the Tools | Share Woorkboo
menu
but I need to find out how to get that list of user names. I assum
Excel is
using Environ("username").

Does anyone have any ideas?

Thanks in advance.

Marti

--
The Code Cage Tea

Regards,
The Code Cage Team
'The Code Cage' (http://www.thecodecage.com

 

[Martin]

Thank you, works perfectly.

Martin

Excel uses Application.Username but any user can chage their Excel name
anytime they want in the options, so its best to use Environ(username),
just use it in the workbook open event to write to a hidden worksheet,
add a sheet and call it Names then use this in the workbook_open event:

Code:
--------------------
With ThisWorkbook.Worksheets("Names").Cells(Rows.Count, "A").End(xlUp)
.offset(1, 0).Value = Environ("username")
.offset(1, 1).Value = Format(Now, "ddd dd mmmm yyyy")
.offset(1, 2).Value = Format(Now, "hh:mm")
End With
--------------------



--
The Code Cage Team

Regards,
The Code Cage Team
'The Code Cage' (http://www.thecodecage.com)