为指定用户创建一组针对活动文档的权限。 返回 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 支持和反馈，获取有关如何接收支持和提供反馈的指南。