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

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

Синтаксис

выражение. Статус пользователя

выражение Переменная, представляющая объект книги .

Примечания

Первый элемент второго измерения — это имя пользователя, второй элемент — дата и время, когда пользователь в последний раз открывал книгу, а третий элемент — число, обозначающее тип списка (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 и обратная связь.