Método Permission.Add (Office)

Cria um conjunto de permissões no documento ativo para o usuário especificado. Retorna um objeto UserPermission .

Sintaxe

expressão. Adicionar (UserID, Permission, ExpirationDate)

expressão Obrigatório. Uma variável que representa um objeto Permission.

Parâmetros

Nome Obrigatório/Opcional Tipo de dados Descrição
UserID Obrigatório String O endereço de email (no formato user@domain.com) do usuário a quem as permissões no documento ativo estão sendo concedidas.
Permissão Opcional MsoPermission As permissões do documento ativo que estão sendo concedidas ao usuário especificado.
ExpirationDate Opcional Data A data de validade para as permissões que estão sendo concedidas.

OBSERVAÇÃO: esse parâmetro não é usado e será ignorado.

Exemplo

Este exemplo atribui uma combinação de permissões de leitura e edição no documento atual a um usuário e especifica uma data de validade para essas permissões.

 Dim objUserPerm As Office.UserPermission 
 Set objUserPerm = ActiveWorkbook.Permission.Add( _ 
 "user@domain.com", _ 
 msoPermissionRead + msoPermissionEdit, #12/31/2005#) 
 MsgBox "Permissions added for " & _ 
 objUserPerm.UserId, _ 
 vbInformation + vbOKOnly, _ 
 "Permissions Added" 
 Set objUserPerm = 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.