通过

UserPermission.Permission 属性 (Office)

  • 项目

返回或设置一个 MsoPermission 常量作为 Long 值，表示对分配给与指定 UserPermission 对象关联的用户的活动文档的权限。 读/写。

语法

表达式。许可

表达 一个代表 UserPermission 对象的变量。

备注

Permission 属性可以是 MsoPermission 常量之一或多个此类常量的组合。

UserPermission 对象将活动文档上的权限集合与单个用户和可选到期日期关联起来。 Permission 属性返回由指定的 UserPermission 对象确定的用户权限集。 虽然某些通过用户界面（如 msoPermissionPrint）授予的权限应用于所有用户，但是可使用 UserPermission 对象按照每个用户的到期日期分配这些权限。

  • msoPermissionView 或 msoPermissionRead 选项与用户界面中的“读取”选项相对应。

  • msoPermissionExtract 选项与用户界面中的“允许具有读取权限的用户复制内容”选项相对应。

  • msoPermissionChange 选项与用户界面中的“更改”选项相对应。 msoPermissionChange 选项表示 msoPermissionView + msoPermissionEdit + msoPermissionSave + msoPermissionExtract 的总和，允许用户查看、编辑、复制和保存，但不能打印文档。

  • msoPermissionPrint 选项对应于用户界面中的“打印内容”选项。

  • msoPermissionObjectModel 选项与用户界面中的“以编程方式访问内容”选项相对应，它允许用户以编程方式通过其对象模型访问文档。 没有 msoPermissionObjectModel 的用户无法使用对象模型来确定自己的权限，因为编程访问被禁用。

示例

以下示例使用具有 Permission 属性和 MsoPermission 常量的按位 And 运算符来确定第二个用户是否具有保存活动文档的权限。

 Dim irmPermission As Office.Permission 
 Dim irmUserPerm As Office.UserPermission 
 Set irmPermission = ActiveWorkbook.Permission 
 Set irmUserPerm = irmPermission.Item(2) 
 If irmUserPerm.Permission And Office.msoPermissionSave Then 
 MsgBox "User " & irmUserPerm.UserId & _ 
 " has permission to save this document.", _ 
 vbInformation + vbOKOnly, "IRM Information" 
 Else 
 MsgBox "User " & irmUserPerm.UserId & _ 
 " does NOT have permission to save this document.", _ 
 vbInformation + vbOKOnly, "IRM Information" 
 End If 
 Set irmUserPerm = Nothing 
 Set irmPermission = Nothing

另请参阅

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。