回傳或設定 MsoPermission 常數為 Long 值,代表指定 UserPermissions 物件所指派給使用者的活動文件權限。 讀取/寫入。
語法
表情。許可
詞 一個代表 UserPermission 物件的變數。
註解
Permission 屬性可以是其中一個或一個 MsoPermission 常數的組合。
UserPermission 物件關聯至使用中文件的權限的一組單一使用者及選擇性到期。 權限 屬性會傳回由指定 UserPermission 物件的使用者權限組。 雖然透過使用者介面授與的部分權限 (例如 msoPermissionPrint) 適用於所有的使用者,但是您可以使用 UserPermission 物件根據每個使用者指定不同的權限和不同的到期日。
MsoPermissionView 或 msoPermissionRead 選項與使用者介面中的 [ 讀取] 選項。
MsoPermissionExtract 選項與使用者介面中的 [ 允許使用者複製內容的讀取存取權] 選項。
MsoPermissionChange 選項與使用者介面中的 [ 變更] 選項。 MsoPermissionChange 選項代表 msoPermissionView + msoPermissionEdit + msoPermissionSave + msoPermissionExtract 的總和,並可讓使用者檢視、 編輯、 複製及儲存,但不是會列印文件。
MsoPermissionPrint 選項與使用者介面中 [ 列印內容] 選項。
MsoPermissionObjectModel 選項與使用者介面中的 [ 以程式設計方式存取內容] 選項,並可讓使用者透過物件模型以程式設計方式存取文件。 沒有 msoPermissionObjectModel 的使用者無法利用物件模型來決定自己的權利,因為程式存取已被禁用。
範例
以下範例使用位元 順序的 And 運算子,搭配 Permission 屬性及 MsoPermission 常數,來判斷第二位使用者是否有權限儲存該活躍文件。
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 支援與意見反應。