Permission.PermissionFromPolicy プロパティ (Office)
作業中の文書にアクセス許可ポリシーが適用されているかどうかを示す ブール 値を取得します。 読み取り専用です。
構文
式。PermissionFromPolicy
式Permission オブジェクトを表す変数。
注釈
Microsoft Office の Information Rights Management では、ユーザーとグループとそのドキュメントのアクセス許可を一覧表示する管理アクセス許可ポリシーの使用がサポートされています。 管理 は、最終アクセス許可のドキュメントで作業中の文書にアクセス許可ポリシーが適用されたかどうかを示す ブール 値を返します。
管理 は、常に False 所有者以外が、ドキュメントのオブジェクト モデルのアクセス許可がある場合にもオンにした場合を返します。
例
次の使用例は、アクティブ ドキュメントのアクセス許可ポリシー情報を表示します。
Dim irmPermission As Office.Permission
Dim strIRMInfo As String
Set irmPermission = ActiveWorkbook.Permission
If irmPermission.Enabled Then
strIRMInfo = "Permissions are restricted on this document." & vbCrLf
If irmPermission.PermissionFromPolicy Then
strIRMInfo = strIRMInfo & " Permissions applied from policy:" & vbCrLf & _
" Policy name: " & irmPermission.PolicyName & vbCrLf & _
" Policy description: " & irmPermission.PolicyDescription
Else
strIRMInfo = strIRMInfo & " Default permissions applied." & vbCrLf & _
" Default policy name: " & irmPermission.PolicyName & vbCrLf & _
" Default policy description: " & irmPermission.PolicyDescription
End If
Else
strIRMInfo = "Permission are NOT restricted on this document."
End If
MsgBox strIRMInfo, vbInformation + vbOKOnly, "IRM Information"
Set irmPermission = Nothing
関連項目
サポートとフィードバック
Office VBA またはこの説明書に関するご質問やフィードバックがありますか? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。
フィードバック
https://aka.ms/ContentUserFeedback」を参照してください。
以下は間もなく提供いたします。2024 年を通じて、コンテンツのフィードバック メカニズムとして GitHub の issue を段階的に廃止し、新しいフィードバック システムに置き換えます。 詳細については、「フィードバックの送信と表示