UserStatus 属性

返回一个基于 1 的二维数组，该数组提供有关每一个以共享清单模式打开工作簿的用户的信息。数组第二维的第一个元素为用户名，第二个元素是用户打开工作簿的日期和时间，第三个元素是一个表示清单类型的数字（1 表示独占，2 表示共享）。Variant 类型，只读。

说明

UserStatus 属性不返回有关以只读方式打开指定工作簿的用户的信息。

示例

本示例新建一个工作簿，并将所有以共享清单模式打开活动工作簿的用户的信息插入新工作簿。

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