語法
expression。 Permission
運算式 代表 Presentation 物件的變數。
傳回值
權限
註解
使用 Permission 物件來限制使用中文件的權限及可傳回或設定特定權限設定。
若要判斷是否將權限限制在使用中文件上使用 Enabled 屬性。 使用 Count 屬性可傳回與權限及 RemoveAll 方法來重設所有現有的權限的使用者人數。
DocumentAuthor 、 EnableTrustedBrowser 、 RequestPermissionURL 及 StoreLicenses 屬性提供的權限設定的其他資訊。
Permission 物件會提供存取權 UserPermission 物件的集合。 您可以使用 UserPermission 物件關聯個別使用者的特定權限集。 儘管透過使用者介面授與的部分權限 (例如 msoPermissionPrint) 適用於所有的使用者，您可以使用 UserPermission 物件根據每個使用者指定不同的權限和不同的到期日。
資訊版權管理支援的管理權限原則，列出使用者與群組及其文件權限。 使用 ApplyPolicy 方法套用權限原則，與 PermissionFromPolicy 、 PolicyName ，以及 PolicyDescription 屬性可傳回原則資訊。
權限 物件模型的功能可用是否權限會限制在使用中文件上或不。 Presentation 物件的 權限 屬性不會傳回 Nothing 時將使用中文件沒有限制權限。 使用 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 支援與意見反應。