// PDF ファイルストリームの作成 using FileStream outputStream = new FileStream("SetSecurityOptionsToPDF.pdf", FileMode.Create); // 新規ワークブックの作成 var workbook = new GrapeCity.Documents.Excel.Workbook(); IWorksheet worksheet = workbook.Worksheets[0]; worksheet.Range["A1"].Value = "DioDocs for Excel"; worksheet.Range["A1"].Font.Size = 25; // Excel をPDF に変換するときのセキュリティ設定 PdfSecurityOptions securityOptions = new PdfSecurityOptions { // ユーザーパスワードを設定 UserPassword = "user", // オーナーパスワードを設定 OwnerPassword = "owner", // PDF ドキュメントの印刷を許可 PrintPermission = true, // PDF ドキュメントを高品質で印刷 FullQualityPrintPermission = true, // PDF ドキュメントのコンテンツのコピーまたは抽出を許可 ExtractContentPermission = true, // PDF ドキュメントの変更を許可 ModifyDocumentPermission = true, // ページの挿入／回転／削除し、および PDF ドキュメントのブックマーク／サムネイル画像の作成を許可 AssembleDocumentPermission = true, // テキスト注釈の変更を許可 ModifyAnnotationsPermission = true, // PDF ドキュメントのフォームフィールドへの入力は許可しない FillFormsPermission = false }; PdfSaveOptions pdfSaveOptions = new PdfSaveOptions { // PDF のセキュリティを設定 SecurityOptions = securityOptions }; // ブックを PDF ファイルに保存 workbook.Save(outputStream, pdfSaveOptions);
' PDF ファイルストリームの作成 Dim outputStream = File.Create("SetSecurityOptionsToPDF.pdf") ' 新規ワークブックの作成 Dim workbook As New Workbook Dim worksheet As IWorksheet = workbook.Worksheets(0) worksheet.Range!A1.Value = "DioDocs for Excel" worksheet.Range!A1.Font.Size = 25 ' Excel をPDF に変換するときのセキュリティ設定 Dim securityOptions As New PdfSecurityOptions With securityOptions ' ユーザーパスワードを設定 .UserPassword = "user" ' オーナーパスワードを設定 .OwnerPassword = "owner" ' PDF ドキュメントの印刷を許可 .PrintPermission = True ' PDF ドキュメントを高品質で印刷 .FullQualityPrintPermission = True ' PDF ドキュメントのコンテンツのコピーまたは抽出を許可 .ExtractContentPermission = True ' PDF ドキュメントの変更を許可 .ModifyDocumentPermission = True ' ページの挿入／回転／削除し、および PDF ドキュメントのブックマーク／サムネイル画像の作成を許可 .AssembleDocumentPermission = True ' テキスト注釈の変更を許可 .ModifyAnnotationsPermission = True ' PDF ドキュメントのフォームフィールドへの入力は許可しない .FillFormsPermission = False End With ' PDF のセキュリティを設定 Dim pdfSaveOptions As New PdfSaveOptions With { .SecurityOptions = securityOptions } ' ブックを PDF ファイルに保存 workbook.Save(outputStream, pdfSaveOptions)