April 2006
Beginner
1114 pages
98h 16m
English
workbook.UserStatus
Returns an array containing information about each user who is currently connected to a workbook. This property is primarily used for listing the users of a shared workbook. The following code displays a list of the users for the current workbook:
Dim usr( ), msg As String
usr = ThisWorkbook.UserStatus
For i = 1 To UBound(usr)
msg = msg & usr(i, 1) & " Opened: " & _
usr(i, 2) & " Shared? " & _
(usr(i, 3) = 2) & vbCrLf
Next
MsgBox msgRead now
Unlock full access