Propriedade Permission.DocumentAuthor (Office)
Obtém ou define o nome no formulário de email do autor do documento ativo. Leitura/gravação.
Sintaxe
expressão. DocumentAuthor
Expressão Uma variável que representa um objeto Permission .
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 usuários que têm uma única conta do Windows só podem escolher entre suas identidades Windows e Passport.
Se as identidades windows e passport do usuário usarem o mesmo endereço de email, use o formato passport:someone@example.com para especificar a identidade passport como a 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
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.