Compartilhar via

Propriedade Permission.StoreLicenses (Office)

  • Artigo

Obtém ou define um valor Boolean que indica se a licença do usuário para visualizar o documento ativo deve ser armazenados em cache para permitir a exibição offline quando o usuário não pode se conectar a um servidor de gerenciamento de direitos. Leitura/gravação.

Sintaxe

expressão. StoreLicenses

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

Comentários

A propriedade StoreLicenses corresponde à (e seu valor é o oposto do) a opção exigir uma conexão para verificar a permissão de um usuário na interface do usuário de permissões. Quando StoreLicenses é False, os usuários que não o proprietário do documento devem se conectar ao servidor de gerenciamento de direitos e adquirir a licença para trabalhar com o documento sempre que o abrirem, quando o conteúdo for protegido usando o serviço de Gerenciamento de Direitos de Informações fornecido no Microsoft Office.

Exemplo

O exemplo a seguir exibe informações sobre as definições de permissões do documento ativo, inclusive a configuração StoreLicenses.

 Dim irmPermission As Office.Permission 
 Dim strIRMInfo As String 
 Set irmPermission = ActiveWorkbook.Permission 
 If irmPermission.Enabled Then 
 strIRMInfo = "Permissions are restricted on this document." & vbCrLf 
 strIRMInfo = strIRMInfo & " View in trusted browser: " & _ 
 irmPermission.EnableTrustedBrowser & vbCrLf & _ 
 " Document author: " & irmPermission.DocumentAuthor & vbCrLf & _ 
 " Users with permissions: " & irmPermission.Count & vbCrLf & _ 
 " Cache licenses locally: " & irmPermission.StoreLicenses & vbCrLf & _ 
 " Request permission URL: " & irmPermission.RequestPermissionURL & vbCrLf 
 If irmPermission.PermissionFromPolicy Then 
 strIRMInfo = strIRMInfo & " Permissions applied from policy:" & vbCrLf & _ 
 " Policy name: " & irmPermission.PolicyName & vbCrLf & _ 
 " Policy description: " & irmPermission.PolicyDescription 
 Else 
 strIRMInfo = strIRMInfo & " Custom permissions applied." 
 End If 
 Else 
 strIRMInfo = "Permissions are NOT restricted on this document." 
 End If 
 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.