複数PDFにExcelリストを参照して個別PW

質問

マクロに詳しい方、お力添えいただけますと幸いです。

ExcelリストのＡ列に企業名を記載し、Ｂ列に8桁の数字のパスワー ドを記載しています。

所定フォルダに、「XX(番号)_企業名」をファイル名とした約300個 のPDFファイルを保存しています。先ほどのExcelリストA列の企業名と同一のPDFファイルに、Ｂ列のパスワードを使用して、この約300個の各ＰＤＦにそれぞれのパスワードを一気にかけたいです。

エクセルの基礎知識(日常業務で関数等は使用)はありますが、マクロは少々苦手です。
説明不足等ある場合には申し訳ございませんが、ご協力いただけますと幸いです。

何卒よろしくお願いいたします。

回答No.3

luka3

＞これはCドライブにファイルがあるイメージでしょうか

DでもEでもZでも、どこに置いてあってもかまいません。
『folderPath』のところでフォルダ名を指定してください。
『storePath』はパスワードをかけたファイルを置くフォルダを指定します。

質問の文章からは「PDFに直接パスワードをかけたい」と感じました。
qpdfは使ったことがないですが、ZIP圧縮なら経験があります。

7-Zipをインストールしてください。
『qpdfExe』のところを

　qpdfExe = """C:\Program Files\7-Zip\7z.exe"""

に変更、『outputPDFPath』および『qpdfCommand』を

　outputPDFPath = storePath & Replace(pdfFile, ".pdf", ".zip", , , vbTextCompare)
　qpdfCommand = qpdfExe & " a -p" & password & " """ & outputPDFPath & """ """ & inputPDFPath & """"

に変更します。
一応動作確認にして、ちゃんとパスワード付ZIPファイルが作成されました。

回答No.2

luka3

どうやってPDFにパスワードをかけるかといった情報があるとよかったのですが。
調べると qpdf というフリーソフトでコマンドラインから使えるようです。
https://qpdf.sourceforge.io/

Sub SetPasswordForPDFs()
Dim objShell As Object
Dim folderPath As String
Dim storePath As String
Dim pdfFile As String
Dim company As String
Dim password As String
Dim inputPDFPath As String
Dim outputPDFPath As String
Dim qpdfExe As String
Dim qpdfCommand As String
Dim index

folderPath = "C:\pdf\" ' PDFがあるパス
storePath = "C:\pdf\protected\" ' パスワードをかけたPDFを置くパス
qpdfExe = "C:\qpdf\bin\qpdf.exe" ' qpdfがあるパス

Set objShell = CreateObject("WScript.Shell")

pdfFile = Dir(folderPath & "*.pdf")
Do While pdfFile <> "" ' PDFファイルがある限りループ
company = Mid(Left(pdfFile, InStrRev(pdfFile, ".") - 1), InStrRev(pdfFile, "_") + 1)
index = Application.Match(company, ActiveSheet.Range("A:A"), 0)
If IsError(index) Then
' 該当の会社名は見つからない
Else
password = ActiveSheet.Cells(index, 2).Value
inputPDFPath = folderPath & pdfFile
outputPDFPath = storePath & pdfFile
qpdfCommand = qpdfExe & " """ & inputPDFPath & """ --password="""" --encrypt " & password & " " & password & " -- """ & outputPDFPath & """"
objShell.Run qpdfCommand, 0, True
End If
pdfFile = Dir ' 次のPDFファイル
Loop

Set objShell = Nothing
End Sub

補足

ご回答ありがとうございます。
....どうやってPDFにパスワードをかけるかといった情報があるとよかったのですが。
情報が不足しており、申し訳ありません。zip圧縮、もしくは直接PDFにPWをかけるイメージでした。
基本的な知識がなく申し訳ありませんが、これはCドライブにファイルがあるイメージでしょうか。

回答No.1

ware121

以下参考に試してみてはいかがですか。

読み取り・書き込みパスワードの一括設定　→　https://excel.syogyoumujou.com/vba/set_password.html

補足

ご回答、ありがとうございます。ただ、内容を見ると全て同じパスワードを設定するもののように思えました。
また、これをカスタマイズするとなると、それほどのスキルがなく...
具体的なVBAがあるととてもうれしい状況です。