Método Permission.ApplyPolicy (Office)

Aplica a diretiva de permissão especificada para o documento ativo.

Sintaxe

expressão. ApplyPolicy (FileName)

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

Parâmetros

Nome Obrigatório/Opcional Tipo de dados Descrição
FileName Obrigatório String O caminho e o nome do arquivo do arquivo de modelo de política de permissão.

Comentários

O Gerenciamento de Direitos de Informação do Microsoft Office dá suporte ao uso de políticas de permissão administrativa que listam usuários e grupos e suas permissões de documento. O método ApplyPolicy aplica uma diretiva de permissão ao documento ativo.

Exemplo

O exemplo a seguir habilita permissões no documento ativo e aplica uma diretiva de permissão administrativa.

 Dim irmPermission As Office.Permission 
 Set irmPermission = ActiveWorkbook.Permission 
 Dim strIRMInfo As String 
 Select Case irmPermission.Enabled 
 Case True 
 strIRMInfo = "Permissions are already restricted on this document." 
 Case False 
 With irmPermission 
 .Enabled = True 
 .ApplyPolicy ("\\server\share\permissionpolicy.xml") 
 End With 
 strIRMInfo = "Permissions are now restricted on this document " & _ 
 vbCrLf & _ 
 " and the permission policy has been applied." 
 End Select 
 MsgBox strIRMInfo, vbInformation + vbOKOnly, "IRM Information" 
 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.