共用方式為

Office) (UserPermission 物件

  • 發行項

會在使用中文件的權限的一組與單一使用者及選擇性到期的關聯。 代表使用中文件的 權限 集合的成員。

註解

若要在使用中文件上的特定權限授與具有選用到期的新使用者使用 Permission 物件的 Add 方法。 若要移除使用者和使用者權使用 移除 方法之 UserPermission 物件。

儘管透過使用者介面授與的部分權限 (例如 msoPermissionPrint) 適用於所有的使用者，您可以使用 UserPermission 物件根據每個使用者指定不同的權限和不同的到期日。

範例

下列範例會判斷使用中檔是否具有受限制的許可權，然後藉由傳回檔之 Permission 集合中每個UserPermission的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 支援與意見反應。