指定した UserPermission オブジェクトに関連付けられているユーザーに割り当てられた作業中の文書に対するアクセス許可を表す長整数型 (Long) の値として MsoPermission 定数を設定または返します。 値の取得と設定が可能です。
構文
式。アクセス 許可
式UserPermission オブジェクトを表す変数。
注釈
アクセス許可 のプロパティには、1 つまたは MsoPermission 定数の組み合わせを指定できます。
UserPermission オブジェクトは、アクティブ ドキュメントに対するアクセス許可のセットで 1 人のユーザーおよびオプションの有効期限の日付。 アクセス許可 プロパティは、指定した UserPermission オブジェクトによって決定されるユーザーのアクセス許可のセットを返します。 msoPermissionPrint など、ユーザー インターフェイスを通じて設定する一部のアクセス許可はすべてのユーザーに適用されますが、UserPermission オブジェクトを使用すると、ユーザー単位でアクセス許可を割り当てることができます。また、ユーザー単位で有効期限を設定することもできます。
MsoPermissionView または msoPermissionRead オプションは、ユーザー インターフェイスで [ 読み取り] オプションに対応します。
MsoPermissionExtract オプションは、ユーザー インターフェイスで、 コンテンツをコピーするのには読み取りアクセス権を持つユーザーを許可する] オプションに対応します。
MsoPermissionChange オプションは、ユーザー インターフェイスのオプションの 変更に対応します。 MsoPermissionChange オプションは、 msoPermissionView + msoPermissionEdit + msoPermissionSave + msoPermissionExtract の合計を表し、表示、編集、コピー、および保存するが、ドキュメントが印刷されないことができます。
MsoPermissionPrint オプションは、 コンテンツを印刷する] オプションで、ユーザー インターフェイスに対応します。
MsoPermissionObjectModel オプションは、 プログラムを使用してコンテンツにアクセスする] オプションで、ユーザー ・ インタ フェースに対応し、そのオブジェクト モデルを通じてドキュメントをプログラムでアクセスすることができます。 msoPermissionObjectModel を持たないユーザーは、プログラムによるアクセスが無効になっているため、オブジェクト モデルを使用して自分の権利を判断することはできません。
例
次の例では、Permission プロパティと MsoPermission 定数を持つビットごとの And 演算子を使用して、2 番目のユーザーが作業中の文書を保存するアクセス許可を持っているかどうかを判断します。
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 のサポートおよびフィードバックを参照してください。