Прочитать на английском

Поделиться через


Объект разрешения (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 и обратная связь.