Objeto UserPermission (Office)

Associa um conjunto de permissões no documento ativo com um único usuário e uma data de vencimento opcional. Representa um membro da coleção de permissão do documento ativo.

Comentários

Use o método Add do objeto Permission para conceder permissões específicas no documento ativo para um novo usuário, com uma data de validade opcional. Use o método Remove do objeto UserPermission para remover um usuário e as permissões do usuário.

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.

Exemplo

O exemplo a seguir determina se o documento ativo tem permissões restritas e, em seguida, lista usuários e suas permissões atribuídas retornando as propriedades UserId, Permission e ExpirationDate de cada UserPermission na coleção Permissão do documento.

 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 

Confira também

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.