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.