通过

Permission.Add 方法 (Office)

  • 项目

为指定用户创建一组针对活动文档的权限。 返回 UserPermission 对象。

语法

表达式。添加 (UserID、 权限、 ExpirationDate)

expression 是必需的。 一个代表 Permission 对象的变量。

参数

名称 必需/可选 数据类型 说明
UserID 必需 字符串 电子邮件地址 (user@domain.com 向其授予活动文档权限的用户的格式) 。
权限 可选 MsoPermission 向指定用户授予的对活动文档的权限。
ExpirationDate 可选 Date 所授予权限的到期日期。

注意：此参数未使用，将被忽略。

示例

下面的示例为用户分配对当前文档的读取和编辑组合权限，并为这些文档权限指定到期日期。

 Dim objUserPerm As Office.UserPermission 
 Set objUserPerm = ActiveWorkbook.Permission.Add( _ 
 "user@domain.com", _ 
 msoPermissionRead + msoPermissionEdit, #12/31/2005#) 
 MsgBox "Permissions added for " & _ 
 objUserPerm.UserId, _ 
 vbInformation + vbOKOnly, _ 
 "Permissions Added" 
 Set objUserPerm = Nothing

另请参阅

支持和反馈

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