Объект UserPermission (Office)
Связывает набор разрешений для активного документа с одним пользователем и необязательной датой окончания срока действия. Представляет член коллекции разрешений активного документа.
Замечания
Используйте метод Add объекта Permission для предоставления определенных разрешений на активный документ новому пользователю с необязательной датой окончания срока действия. Используйте метод Remove объекта UserPermission , чтобы удалить пользователя и разрешения пользователя.
Хотя некоторые разрешения, предоставленные через пользовательский интерфейс (например , msoPermissionPrint), применяются ко всем пользователям, можно использовать объект UserPermission , чтобы назначить их для каждого пользователя с датами окончания срока действия для каждого пользователя.
Пример
В следующем примере определяется, имеются ли у активного документа ограниченные разрешения, а затем выводится список пользователей и назначенных им разрешений, возвращая свойства UserId, Permission и ExpirationDate каждого объекта UserPermission в коллекции Permission документа.
Dim irmPermission As Office.Permission
Dim irmUserPerm As Office.UserPermission
Dim strIRMInfo As String
Set irmPermission = ActiveWorkbook.Permission
If irmPermission.Enabled Then
For Each irmUserPerm In irmPermission
strIRMInfo = strIRMInfo & irmUserPerm.UserId & vbCrLf & _
" - Permissions: " & irmUserPerm.Permission & vbCrLf & _
" - Expiration Date: " & irmUserPerm.ExpirationDate & vbCrLf
Next
MsgBox strIRMInfo, _
vbInformation + vbOKOnly, "IRM Information"
Else
MsgBox "This document is not restricted.", _
vbInformation + vbOKOnly, "IRM Information"
End If
Set irmUserPerm = Nothing
Set irmPermission = Nothing
См. также
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.