RequestPermissionURL Property

Returns or sets the file or web site URL to visit or the email address to contact for users who need additional permissions on the active document. Read/write String.

expression.RequestPermissionURL

expression    Required. An expression that returns a Permission object.

Remarks

The RequestPermissionURL setting corresponds to the Users can request additional permissions from option in the permissions user interface. Use the RequestPermissionURL property to specify a file, a web site, or an email contact from which users can request, or learn how to request, additional permissions on the active document, for example:

• A web address: http://companyserver/request_permissions.asp
• A file: \\companyserver\share\requesting_permissions.txt
• An email address: mailto:[email protected]?Subject=Request%20permissions

Example

The following example displays information about the permissions settings of the active document, including the RequestPermissionURL setting.

        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