Get User of shared workbook

[Richard Hare]

Can someone please tell me the VB code to let me know the
current user(s) of a shared workbook

Thanks

R

[Bill Manville]

Richard Hare wrote:
> Can someone please tell me the VB code to let me know the
> current user(s) of a shared workbook
>

From online help:

<
UserStatus Property Example

This example creates a new workbook and inserts into it information
about all users who have the active workbook open as a shared list.

users = ActiveWorkbook.UserStatus
With Workbooks.Add.Sheets(1)
For row = 1 To UBound(users, 1)
.Cells(row, 1) = users(row, 1)
.Cells(row, 2) = users(row, 2)
Select Case users(row, 3)
Case 1
.Cells(row, 3).Value = "Exclusive"
Case 2
.Cells(row, 3).Value = "Shared"
End Select
Next
End With
>

Bill Manville
MVP - Microsoft Excel, Oxford, England
No email replies please - reply in newsgroup