次の方法で共有

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 のサポートおよびフィードバックを参照してください。