Permission.RequestPermissionURL プロパティ (Office)
アクセスするファイルまたは Web サイトの URL、または作業中のドキュメントに対する追加のアクセス許可を必要とするユーザーに連絡するメール アドレスを取得または設定します。 値の取得と設定が可能です。
構文
式。RequestPermissionURL
式Permission オブジェクトを表す変数。
注釈
RequestPermissionURL 設定は、アクセス許可ユーザー インターフェイスの [ユーザーが追加のアクセス許可を要求できる] オプションに対応します。 RequestPermissionURL プロパティを使用して、ユーザーが作業中のドキュメントに対する追加のアクセス許可を要求したり、要求する方法を確認したりできるファイル、Web サイト、または電子メール連絡先を指定します。例えば:
Web アドレス:
https://companyserver/request_permissions.asp
ファイル:
\\companyserver\share\requesting_permissions.txt
電子メール アドレス:
mailto:permissionsmgr@example.com?Subject=Request%20permissions
例
RequestPermissionURL 設定など、作業中の文書のアクセス権の設定に関する情報を表示する例を次にします。
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
strIRMInfo = strIRMInfo & " View in trusted browser: " & _
irmPermission.EnableTrustedBrowser & vbCrLf & _
" Document author: " & irmPermission.DocumentAuthor & vbCrLf & _
" Users with permissions: " & irmPermission.Count & vbCrLf & _
" Cache licenses locally: " & irmPermission.StoreLicenses & vbCrLf & _
" Request permission URL: " & irmPermission.RequestPermissionURL & 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."
End If
Else
strIRMInfo = "Permissions 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 を段階的に廃止し、新しいフィードバック システムに置き換えます。 詳細については、「フィードバックの送信と表示