PowerPoint) (Presentation.Permission 属性
语法
expression。 Permission
表达 一个代表 Presentation 对象的变量。
返回值
权限
备注
使用 权限 对象来限制对活动文档的权限，并返回或设置特定权限设置。
使用 Enabled 属性可确定活动文档是否限制权限。 使用 Count 属性返回具有权限，并 拔出所有 方法来重置所有现有权限的用户数。
DocumentAuthor 、 EnableTrustedBrowser 、 RequestPermissionURL 和 StoreLicenses 属性提供了有关权限设置的其他信息。
权限 对象用于访问 UserPermission 对象的集合。 使用 UserPermission 对象各个用户相关联的特定权限集。 当某些通过用户界面（如 msoPermissionPrint）授予的权限应用到所有用户时，可使用 UserPermission 对象为每个用户分配权限，并为每个用户指定权限的到期日期。
信息权限管理支持管理权限策略，列出用户和组及其文档权限的使用。 使用 ApplyPolicy 方法应用的权限策略，以及 PermissionFromPolicy 、 PolicyName 和 PolicyDescription 属性返回策略信息。
权限 对象模型都可用是否权限是否受到限制在活动文档上。 演示文稿 对象的 权限 属性不返回 任何内容 如果活动文档不具有受限的权限。 使用 Enabled 属性可确定文档是否具有受限权限。
示例
以下示例创建一个新演示文稿，并为用户分配电子邮件地址为“”someone@example.com读取新演示文稿的权限。 该示例将显示所有者和新用户的权限。
Sub AddUserPermissions()
Dim myPres As PowerPoint.Presentation
Dim myPer As Office.Permission
Dim NewOwnerPer As Office.UserPermission
Set myPres = Application.Presentations.Add(msoTrue)
Set myPer = myPres.Permission
myPer.Enabled = True
Set NewOwnerPer = myPer.Add("someone@example.com", msoPermissionRead )
MsgBox myPer(1).UserId + " " + Str(myPer(1).Permission)
MsgBox myPer(2).UserId + " " + Str(myPer(2).Permission)
End Sub
另请参阅
支持和反馈
有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。