Office) (權限物件
文件 中的物件 Microsoft Word、 Microsoft Excel 中的 Workbook 物件以及 Microsoft PowerPoint 中的 Presentation 物件 Permission 屬性都會傳回 Permission 物件。
註解
使用 Permission 物件限制在使用中文件的使用權限及傳回或設定特定權限設定。
Permission物件可讓您存取UserPermission物件的集合。 您可以使用 UserPermission 物件關聯個別使用者的特定權限集。 雖然透過使用者介面授與的部分權限 (例如 msoPermissionPrint) 適用於所有的使用者，但是您可以使用 UserPermission 物件根據每個使用者指定不同的權限和不同的到期日。
Microsoft Office 資訊版權管理支援使用列出使用者和群組及其檔許可權的系統管理許可權原則。 使用 ApplyPolicy 方法套用權限原則，與 PermissionFromPolicy 、 PolicyName ，以及 PolicyDescription 屬性可傳回原則資訊。
權限 物件模型的功能可用是否權限會限制在使用中文件上或不。 文件 、 活頁簿 及 簡報 物件的 權限 屬性不會傳回 為 nothing 時將使用中文件沒有限制權限。 使用 Enabled 屬性來決定文件是否具有受限的使用權限。
使用 Permission 物件會在未安裝 Windows Rights Management 用戶端引發錯誤。
範例
下列範例會傳回在使用中文件上之權限設定的資訊。
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: " & 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." & vbCrLf & _
" Default policy name: " & irmPermission.PolicyName & vbCrLf & _
" Default policy description: " & irmPermission.PolicyDescription
End If
Else
strIRMInfo = "Permissions are NOT restricted on this document."
End If
MsgBox strIRMInfo, vbInformation + vbOKOnly, "IRM Information"
Set irmPermission = Nothing
另請參閱
支援和意見反應
有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。