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
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.