Propriedade Permission.DocumentAuthor (Office)

Obtém ou define o nome na forma de e-mail do autor do documento ativo. Leitura/gravação.

Sintaxe

expressão. DocumentAuthor

expressão Uma variável que representa um objeto Permissão .

Comentários

A propriedade DocumentAuthor Retorna ou define o autor do documento ativo. O autor sempre possui direitos de proprietário não expiram ao documento, se a permissão do proprietário é concedida explicitamente (através de um objeto UserPermission ) ou não.

A propriedade DocumentAuthor só pode ser alterada para uma conta diferente que tenha sido certificada por meio da interface de usuário permissões para abrir o conteúdo restrito no computador local. Na maioria dos casos, os utilizadores que tenham uma única conta do Windows só podem escolher entre as respetivas identidades do Windows e do Passport.

Se as identidades do Windows e do Passport do utilizador utilizarem o mesmo endereço de e-mail, utilize o formato passport:someone@example.com para especificar a identidade do Passport como propriedade DocumentAuthor .

Exemplo

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

 Dim irmPermission As Office.Permission 
 Dim strIRMInfo As String 
 Set irmPermission = ActiveWorkbook.Permission 
 If irmPermission.Enabled Then 
 strIRMInfo = "Permissions are enabled on this document." & vbCrLf 
 strIRMInfo = strIRMInfo & " View in trusted browser: " & _ 
 irmPermission.EnableTrustedBrowser & vbCrLf & _ 
 " Document author: " & irmPermission.DocumentAuthor & vbCrLf & _ 
 " Users with rights: " & 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 & " Default permissions applied." 
 End If 
 Else 
 strIRMInfo = "Permissions are NOT enabled on this document." 
 End If 
 MsgBox strIRMInfo, vbInformation + vbOKOnly, "IRM Information" 
 Set irmPermission = Nothing 

Confira também

• Membros do objeto de permissão

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.