返回一个基为 1 的二维数组，该数组提供有关每一个以共享列表模式打开工作簿的用户的信息。
Variant 类型，只读。
语法
表达式.UserStatus
表达式 一个代表 Workbook 对象的变量。
说明
数组第二维的第一个元素为用户名，第二个元素是用户打开工作簿的日期和时间，第三个元素是一个表示清单类型的数字（1 表示独占，2 表示共享）。
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
|