Объект разрешения (Office)
Свойство Permission объекта Document в Microsoft Word, объекта Workbook в Microsoft Excel и объекта Presentation в Microsoft PowerPoint возвращает объект Permission .
Используйте объект Permission для ограничения разрешений для активного документа, а также для возврата или задания определенных параметров разрешений.
Объект Permission предоставляет доступ к коллекции объектов UserPermission . Используйте объект UserPermission , чтобы связать определенные наборы прав с отдельными пользователями. Хотя некоторые разрешения, предоставленные через пользовательский интерфейс (например , msoPermissionPrint), применяются ко всем пользователям, можно использовать объект UserPermission , чтобы назначить их для каждого пользователя с датами окончания срока действия для каждого пользователя.
Microsoft Office Information Rights Management поддерживает использование политик административных разрешений, которые содержат список пользователей и групп и их разрешений для документов. Используйте метод ApplyPolicy для применения политики разрешений, а свойства PermissionFromPolicy, PolicyName и PolicyDescription — для возврата сведений о политике.
Объектная модель разрешений доступна независимо от того, ограничены ли разрешения для активного документа. Свойство Permission объектов Document, Workbook и Presentation не возвращает Значение Nothing , если активный документ не имеет ограниченных разрешений. Используйте свойство Enabled , чтобы определить, имеет ли документ ограниченные разрешения.
Использование объекта Permission вызывает ошибку, если клиент Windows Rights Management не установлен.
В следующем примере возвращаются сведения о параметрах разрешений для активного документа.
Dim irmPermission As Office.Permission
Dim strIRMInfo As String
Set irmPermission = ActiveWorkbook.Permission
If irmPermission.Enabled Then
strIRMInfo = "Permissions are restricted on this document." & vbCrLf
strIRMInfo = strIRMInfo & " View in trusted browser: " & _
irmPermission.EnableTrustedBrowser & vbCrLf & _
" Document author: " & irmPermission.DocumentAuthor & vbCrLf & _
" Users with permissions: " & irmPermission.Count & vbCrLf & _
" Cache licenses: " & irmPermission.StoreLicenses & vbCrLf & _
" Request permission URL: " & irmPermission.RequestPermissionURL & vbCrLf
If irmPermission.PermissionFromPolicy Then
strIRMInfo = strIRMInfo & " Permissions applied from policy:" & vbCrLf & _
" Policy name: " & irmPermission.PolicyName & vbCrLf & _
" Policy description: " & irmPermission.PolicyDescription
Else
strIRMInfo = strIRMInfo & " Default permissions applied." & vbCrLf & _
" Default policy name: " & irmPermission.PolicyName & vbCrLf & _
" Default policy description: " & irmPermission.PolicyDescription
End If
Else
strIRMInfo = "Permissions are NOT restricted on this document."
End If
MsgBox strIRMInfo, vbInformation + vbOKOnly, "IRM Information"
Set irmPermission = Nothing
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.