Propiedad Permission.DocumentAuthor (Office)

Obtiene o establece el nombre en forma de correo electrónico del autor del documento activo. Lectura y escritura.

Sintaxis

expresión. DocumentAuthor

expresión Variable que representa un objeto Permission .

Observaciones

La propiedad DocumentAuthor Devuelve o establece al autor del documento activo. El autor siempre tiene derechos de propietario sin fecha de caducidad para el documento, si el permiso de propietario se conceda explícitamente (mediante un objeto UserPermission ) o no.

La propiedad DocumentAuthor sólo se puede cambiar a una cuenta diferente que ha sido certificada a través de la interfaz de usuario de permisos para abrir contenido restringido en el equipo local. En la mayoría de los casos, los usuarios que tienen una sola cuenta de Windows solo pueden elegir entre sus identidades de Windows y Passport.

Si las identidades de Windows y Passport del usuario usan la misma dirección de correo electrónico, use el formato passport:someone@example.com para especificar la identidad de Passport como la propiedad DocumentAuthor .

Ejemplo

El ejemplo siguiente muestra información sobre la configuración de los permisos del documento activo, incluidos los permisos del autor del 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 

Vea también

• Miembros del objeto Permission

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.