Compartilhar via

Propriedade UserPermission.Permission (Office)

  • Artigo

Retorna ou define uma constante MsoPermission como um valor Long que representa as permissões no documento ativo atribuído ao usuário associado ao objeto UserPermission especificado. Leitura/gravação.

Sintaxe

expressão. Permissão

Expressão Uma variável que representa um objeto UserPermission .

Comentários

A propriedade Permission pode ser uma ou uma combinação de constantes MsoPermission.

O objeto UserPermission associa um conjunto de permissões no documento ativo com um único usuário e uma data de vencimento opcional. A propriedade Permission retorna o conjunto de permissões de usuário determinadas pelo objeto UserPermission especificado. 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.

  • A opção msoPermissionView ou msoPermissionRead corresponde à opção ler na interface do usuário.

  • A opção msoPermissionExtract corresponde à opção Permitir que usuários com acesso de leitura copiem o conteúdo na interface do usuário.

  • A opção msoPermissionChange corresponde à opção alteração na interface do usuário. A opção msoPermissionChange representa a soma de msoPermissionView + msoPermissionEdit + msoPermissionSave + msoPermissionExtract e permite aos usuários exibir, editar, copiar e salvar, mas não imprimir o documento.

  • A opção msoPermissionPrint corresponde à opção Imprimir conteúdo na interface do usuário.

  • A opção msoPermissionObjectModel corresponde à opção acessar conteúdo de forma programática na interface do usuário e permite que os usuários acessem o documento por meio de programação através de seu modelo de objeto. Os usuários sem msoPermissionObjectModel não podem usar o modelo de objeto para determinar seus próprios direitos porque o acesso programático está desabilitado.

Exemplo

O exemplo a seguir usa o operador E bit com a propriedade Permission e uma constante MsoPermission para determinar se o segundo usuário tem permissão para salvar o documento ativo.

 Dim irmPermission As Office.Permission 
 Dim irmUserPerm As Office.UserPermission 
 Set irmPermission = ActiveWorkbook.Permission 
 Set irmUserPerm = irmPermission.Item(2) 
 If irmUserPerm.Permission And Office.msoPermissionSave Then 
 MsgBox "User " & irmUserPerm.UserId & _ 
 " has permission to save this document.", _ 
 vbInformation + vbOKOnly, "IRM Information" 
 Else 
 MsgBox "User " & irmUserPerm.UserId & _ 
 " does NOT have permission to save this document.", _ 
 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.