Objeto permission (Office)

A propriedade Permission dos objetos Document no Microsoft Word, um objeto Workbook no Microsoft Excel e um objeto Presentation no Microsoft PowerPoint retorna um objeto Permission.

Comentários

Use o objeto Permission para restringir permissões ao documento ativo e para retornar ou definir configurações de permissões específicas.

O objeto Permission dá acesso a uma coleção de objetos UserPermission . Use o objeto UserPermission para associar conjuntos específicos de direitos a usuários individuais. Enquanto algumas permissões concedidas através da interface de usuário (como msoPermissionPrint) se aplicam a todos os usuários, você pode usar o objeto UserPermission para atribuí-las a cada usuário com datas de expiração por usuário.

O Gerenciamento de Direitos de Informação do Microsoft Office dá suporte ao uso de políticas de permissão administrativa que listam usuários e grupos e suas permissões de documento. Use o método ApplyPolicy para aplicar uma política de permissão e as propriedades PermissionFromPolicyPolicyName e PolicyDescription para retornar informações de política.

O modelo de objeto de permissão está disponível se as permissões são restritas no documento ativo ou não. A propriedade Permission dos objetos de documento, pasta de trabalho e a apresentação não retorna Nada quando o documento ativo não possui permissões restritas. Use a propriedade Enabled para determinar se um documento possui permissões restritas.

Uso do objeto Permission gera um erro quando o cliente Windows Rights Management não está instalado.

Exemplo

O exemplo a seguir retorna informações sobre as definições de permissões no documento ativo.

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

Confira também

• Membros do objeto permission
• Referência do modelo de objeto

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.