wordファイルをPDF化しパスワードをかけたい

Question

フォルダの中にwordファイルが複数あります。
このファイルをPDF化しパスワードをかけて保存するvbsを作成したいのですが、
パスワードをかける処理が分からずアドバイス頂けないでしょうか。

ファイル名の一部をパスワードとして使用します。
フォルダ名：wordtoPDF
ファイル名：[日本語][パスワード].pdf

参考にしたサイト
https://digitanu.com/71

savas実行時にファイル名の一部をパスワードとして指定できるようにしたいのですが、
調べる限りここでパスワードを付けて保存はできないことまでは分かりましたが、
他に方法がないか探しております。

Dim FS, objWord, objDoc, objArgs, FileName, FolderName
'実行時の引数を取得
Set objArgs = WScript.Arguments
If objArgs.Count=0 Then
MsgBox "Wordファイルをドラッグしてください。"
WScript.Quit
End If
Set FS = CreateObject("Scripting.FileSystemObject")
Set objWord = CreateObject("Word.Application")
objWord.Visible = false
j = 0
For Each FileName In objArgs
FolderName = FS.GetParentFolderName(FileName)
Select Case LCase(FS.GetExtensionName(FileName))
 '拡張子がdoc, docxの時だけ処理
Case "doc","docx"
Set objDoc = objWord.Documents.Open (FileName)
 '名前をつけて保存（PDFに）
objDoc.SaveAs FS.BuildPath(FolderName, FS.GetBaseName(FileName) & ".pdf"), 17
objDoc.Close False
j = j + 1
End Select
Next
objWord.Quit
Set FS = Nothing
Set objDoc = nothing
Set objWord = nothing
MsgBox j & "個のファイルを変換しました"

Answer 1

Call objDoc.Protect([保護タイプ],,[パスワード])

保護タイプ：
0:wdAllowOnlyRevisions
1:wdAllowOnlyComments
2:wdAllowOnlyFormFields
3:wdAllowOnlyReading
-1:wdNoProtection
詳細は、↓を参照ください
https://msdn.microsoft.com/ja-jp/library/microsoft.office.interop.word.wdprotectiontype(v=office.11).aspx

Comments

[manataku]

ExcelVBAerさん
回答ありがとうございます。
Call objDoc.Protect([保護タイプ],,[パスワード])について、
下記のように追加してみましたが、パスワードが設定できませんでした。
何をcallしているかも分かっておりませんが、使い方としてはコード内に挿入するで良かったでしょうか。。
せっかく回答頂いたのに申しわけありませんが、詳細を読み解き使えるレベルになく、
使い方についてアドバイス頂けないでしょうか。

---
Set objDoc = objWord.Documents.Open (FileName)
Call objDoc.Protect(3,,"pass")
objDoc.SaveAs FS.BuildPath(FolderName, FS.GetBaseName(FileName) & ".pdf"), 17
objDoc.Close False
---

[ExcelVBAer]

流し読みしてて、文書の保護と間違えてました。
すみません。。。

PDFのパスワードはVBAからは指定できないようです。

ダイアログだと「ドキュメントをパスワードで暗号化する」で設定できるのに、マクロから設定できないとは。。。

[manataku]

ExcelVBAer さん
ご確認ありがとうございました。
>PDFのパスワードはVBAからは指定できないようです。
ダイレクトにwordからPDF変換時にパスワードをかけることは難しいようなので、
作成されたPDFファイルを圧縮しパスワードをつけることはvbaからも可能でしょうか。
windows7を使用しており、Lhaplusを入れております。

[ExcelVBAer]

回答が遅くなりましたが、恐らくもう見つけていると思いますが、
[VBA Lhaplus] で検索したら、対応策が見つかりますね。

https://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q13149799168

Answer 2

vbs+vbaにて実現できました。