VBAでExcelから読取り専用PDFを出力したい

Question

VBAにてExcelに帳票を作成後、その帳票を読取り専用（保存はできない仕様）としてPDF出力・表示したいです。
現在はネット検索で出てくる一般的なPDF出力処理を記載し正常に動作していますが、このソースに追加記載で済むのか、そもそも読み取り専用でのPDF出力が可能なのか、分かる方がいれば教えていただければと思います。

下記ソースのファイル名等は簡易的なものに代替しています。

Dim str_pdf_file As String
Dim obj_WSH As New WshShell
Workbooks(book1).Activate
        str_pdf_file = obj_WSH.SpecialFolders("Desktop") & "\帳票.pdf"
        Workbooks(book1).ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=str_pdf_file

Comments

[y_waiwai]

ExcelでPDFを保存する時に読み取り専用という設定はできるんでしょうか

[退会済みユーザー]

こちらは修正依頼ということでしょうか。

[y_waiwai]

いや、単なる質問です

[退会済みユーザー]

誤認識失礼いたしました。
ExcelからPDFへ「エクスポート」と「印刷のPDF出力」で確認しましたが、そのような設定箇所は見当たりませんでした。

読み取り専用設定は、PDFのいわゆる「プロパティ設定」に値すると認識していますが、そちら方面で調べてみましても有効な情報は見つかっていません。
本件利用者の要望ではありますが、本仕様がそもそも物理的に可能なのか否かということから不明瞭なのが現状です。

Answer 1

PDFを読み取り専用にするには PDF にセキュリティを設定する必要がありますが、ExcelのみではPDFへのセキュリティ設定はできない模様です。
「Excel VBA PDFセキュリティ設定」などでググっていただくと、フリーソフトを使ったり、有償版のAcrobatを使ったりする方法が見つかりますので、ご確認ください。

Comments

[退会済みユーザー]

ご回答ありがとうございます。
私も調べてみましたが、エクセルのみでは難しいようですね。
利用者へこの旨伝えたところ、ご理解いただき本仕様は不要となりました。
有難うございました。

[segavvy]

いえいえ、お役に立てたようでしたら良かったです！

Answer 2

原理として、ほぼ全ての方法は大体同じです、ただ使った道筋がそれぞれですね、例えばとあるコンポーネントを使い、コードでExcelからPDFに変換することができます。無料で使用できるSpire.Xlsを例にして説明しようと思います。コードは以下の通りです：

using System.Collections.Generic;
using System.Linq;
using System.Text;
using Spire.Xls;

namespace ToPDF
{
    class Program
    {
        static void Main(string[] args)
        {
            Workbook workbook = new Workbook();
            workbook.LoadFromFile("Sample.xlsx", ExcelVersion.Version2010);
            workbook.SaveToFile("result.pdf", Spire.Xls.FileFormat.PDF);
        }
    }
}

こうするとうまくいけるはずです、お試してください。