Propiedad Permission.RequestPermissionURL (Office)

Obtiene o establece la dirección URL del archivo o sitio web que se va a visitar o la dirección de correo electrónico con la que ponerse en contacto para los usuarios que necesitan permisos adicionales en el documento activo. Lectura y escritura.

Sintaxis

expresión. RequestPermissionURL

Expresión Variable que representa un objeto Permission .

Comentarios

La configuración RequestPermissionURL corresponde a la opción Usuarios puede solicitar permisos adicionales en la interfaz de usuario de permisos. Use la propiedad RequestPermissionURL para especificar un archivo, un sitio web o un contacto de correo electrónico desde el que los usuarios pueden solicitar o aprender a solicitar permisos adicionales en el documento activo; por ejemplo:

  • Una dirección web: https://companyserver/request_permissions.asp

  • Un archivo: \\companyserver\share\requesting_permissions.txt

  • Una dirección de correo electrónico: mailto:permissionsmgr@example.com?Subject=Request%20permissions

Ejemplo:

El ejemplo siguiente muestra información sobre la configuración de permisos del documento activo, incluido el valor RequestPermissionURL.

 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 & " Default permissions applied." 
 End If 
 Else 
 strIRMInfo = "Permissions are NOT restricted on this document." 
 End If 
 MsgBox strIRMInfo, vbInformation + vbOKOnly, "IRM Information" 
 Set irmPermission = Nothing

Consulte también

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.

  • Last updated on