Share via


Excel) (Workbook.UserStatus 屬性

會傳回一個以 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

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎? 如需取得支援服務並提供意見反應的相關指導,請參閱 Office VBA 支援與意見反應