Propriedade Presentation.Permission (PowerPoint)

Sintaxe

expression. Permission

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

Valor de retorno

Permissão

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.

Use a propriedade Enabled para determinar se as permissões são restritas no documento ativo. Use a propriedade Count para retornar o número de usuários com permissões e o método RemoveAll para redefinir todas as permissões existentes.

O DocumentAuthor, EnableTrustedBrowser, RequestPermissionURL e StoreLicenses propriedades fornecem informações adicionais sobre configurações de permissão.

Objeto Permission fornece acesso a uma coleção de objetos UserPermission. Use o objeto UserPermission para associar conjuntos específicos de direitos a usuários individuais. Embora algumas permissões concedidas na interface de usuário (como msoPermissionPrint) sejam aplicadas a todos os usuários, você pode reutilizar o objeto UserPermission para atribuí-las em uma base por usuário por datas de vencimento.

Gerenciamento de direitos de informação suporta o uso de diretivas de permissão administrativa, que lista os usuários e grupos e suas permissões do 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 do objeto Presentation 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.

Exemplo

O exemplo a seguir cria uma nova apresentação e atribui ao usuário a permissão de leitura "someone@example.com" do endereço de email na nova apresentação. O exemplo exibirá as permissões do proprietário e do novo usuário.

Sub AddUserPermissions()

 Dim myPres As PowerPoint.Presentation

 Dim myPer As Office.Permission

 Dim NewOwnerPer As Office.UserPermission

 Set myPres = Application.Presentations.Add(msoTrue)

 Set myPer = myPres.Permission

 myPer.Enabled = True

 Set NewOwnerPer = myPer.Add("someone@example.com", msoPermissionRead )

 MsgBox myPer(1).UserId + " " + Str(myPer(1).Permission)

 MsgBox myPer(2).UserId + " " + Str(myPer(2).Permission)

End Sub

Confira também

Objeto Presentation

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.