Свойство Workbook.UserStatus (Excel)

Возвращает двухмерный массив на основе 1, предоставляющий сведения о каждом пользователе, у которого книга открыта в виде общего списка. Только для чтения, Variant.

Синтаксис

expression. 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 и обратная связь.