通过

UserPermission 对象 (Office)

  • 项目

将有关活动文档的一组权限与单个用户和可选的到期日期相关联。 代表活动文档的 Permission 集合的成员。

备注

使用 Permission 对象的 Add 方法可将活动文档的特定权限授给新用户，并且这些权限具有可选的到期日期。 使用 UserPermission 对象的 Remove 方法可删除用户及其权限。

将某些通过用户界面（如 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 支持和反馈，获取有关如何接收支持和提供反馈的指南。