會在使用中文件的權限的一組與單一使用者及選擇性到期的關聯。 代表使用中文件的 權限 集合的成員。
註解
若要在使用中文件上的特定權限授與具有選用到期的新使用者使用 Permission 物件的 Add 方法。 若要移除使用者和使用者權使用 移除 方法之 UserPermission 物件。
儘管透過使用者介面授與的部分權限 (例如 msoPermissionPrint) 適用於所有的使用者，您可以使用 UserPermission 物件根據每個使用者指定不同的權限和不同的到期日。
範例
以下範例判斷該有效文件是否擁有受限權限，並透過回傳文件權限集合中每個 UserPermissions 的 UserID、Permission 及 ExpirationDate 屬性，列出使用者及其分配的權限。
Dim irmPermission As Office.Permission
Dim irmUserPerm As Office.UserPermission
Dim strIRMInfo As String
Set irmPermission = ActiveWorkbook.Permission
If irmPermission.Enabled Then
For Each irmUserPerm In irmPermission
strIRMInfo = strIRMInfo & irmUserPerm.UserId & vbCrLf & _
" - Permissions: " & irmUserPerm.Permission & vbCrLf & _
" - Expiration Date: " & irmUserPerm.ExpirationDate & vbCrLf
Next
MsgBox strIRMInfo, _
vbInformation + vbOKOnly, "IRM Information"
Else
MsgBox "This document is not restricted.", _
vbInformation + vbOKOnly, "IRM Information"
End If
Set irmUserPerm = Nothing
Set irmPermission = Nothing
另請參閱
支援和意見反應
有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。