Excel) (Workbook.UserStatus 属性

返回一个基为 1 的二维数组，该数组提供有关每一个以共享列表模式打开工作簿的用户的信息。 只读变体。

语法

表达式。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

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。