Ескертпе
Бұл бетке кіру үшін қатынас шегін айқындау қажет. Жүйеге кіруді немесе каталогтарды өзгертуді байқап көруге болады.
Бұл бетке кіру үшін қатынас шегін айқындау қажет. Каталогтарды өзгертуді байқап көруге болады.
Свойство 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 и обратная связь.