ApplyPolicy Method
Applies the specified permission policy to the active document.
expression.ApplyPolicy(Filename)
*expression * Required. An expression that returns a Permission object.
*Filename * Required String. The path and filename of the permission policy template file.
Remarks
Microsoft Office Information Rights Management supports the use of administrative permission policies which list users and groups and their document permissions. The ApplyPolicy method applies a permission policy to the active document.
Example
The following example enables permissions on the active document and applies an administrative permission policy.
Dim irmPermission As Office.Permission
Set irmPermission = ActiveWorkbook.Permission
Dim strIRMInfo As String
Select Case irmPermission.Enabled
Case True
strIRMInfo = "Permissions are already restricted on this document."
Case False
With irmPermission
.Enabled = True
.ApplyPolicy ("\\server\share\permissionpolicy.xml")
End With
strIRMInfo = "Permissions are now restricted on this document " & _
vbCrLf & _
" and the permission policy has been applied."
End Select
MsgBox strIRMInfo, vbInformation + vbOKOnly, "IRM Information"
Set irmPermission = Nothing
Applies to | Permission Object