一、PDFCreator兼容旧版本 #

PDFCreator 5.1.2及更早版本基于.NET Framework开发，完整支持COM接口，可正常在Excel VBA中调用：

• 推荐版本：PDFCreator 5.1.2（最后一个稳定的.NET Framework版本）
• 调用示例（需先引用对应版本的PDFCreator类型库）：

Dim pdfQueue As PDFCreator.JobQueue
Dim pdfJob As PDFCreator.Job

Set pdfQueue = New PDFCreator.JobQueue
pdfQueue.Initialize

' 将目标工作表打印到PDFCreator虚拟打印机
ActiveSheet.PrintOut Printer:=pdfQueue.PrinterName

Set pdfJob = pdfQueue.NextJob
' 启用密码保护并设置打开密码
pdfJob.SetProfileSetting("PdfSettings.Security.Enabled", "True")
pdfJob.SetProfileSetting("PdfSettings.Security.OpenPassword", "yourSecurePassword")
pdfJob.ConvertTo("C:\YourOutputPath\protected.pdf")

' 释放COM资源
pdfQueue.ReleaseCom

二、第三方替代工具 #

1. Adobe Acrobat Pro #

若拥有Acrobat Pro授权，可直接通过其VBA接口实现：

Dim acroApp As Object
Dim acroPDDoc As Object
Dim tempPdf As String, finalPdf As String

tempPdf = "C:\temp_unprotected.pdf"
finalPdf = "C:\protected.pdf"

' 先导出工作表为无密码PDF
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=tempPdf

' 初始化Acrobat对象并设置密码
Set acroApp = CreateObject("AcroExch.App")
Set acroPDDoc = CreateObject("AcroExch.PDDoc")

If acroPDDoc.Open(tempPdf) Then
    acroPDDoc.SetPassword "", "yourSecurePassword"
    acroPDDoc.Save 1, finalPdf
    acroPDDoc.Close
End If

acroApp.Exit
Set acroPDDoc = Nothing
Set acroApp = Nothing

' 删除临时文件
Kill tempPdf

2. CutePDF Pro #

支持COM接口，安装后引用其类型库，可通过类似PDFCreator的逻辑调用，核心步骤为：

• 初始化打印队列
• 打印工作表到虚拟打印机
• 配置PDF安全参数（打开密码）
• 完成转换

3. 无额外软件依赖方案（Excel+PowerShell） #

无需安装第三方PDF工具，利用Excel内置导出功能结合PowerShell实现：

Dim tempPdf As String, finalPdf As String
tempPdf = "C:\temp_unprotected.pdf"
finalPdf = "C:\protected.pdf"

' 导出工作表为无密码PDF
ActiveSheet.ExportAsFixedFormat xlTypePDF, tempPdf

' 调用PowerShell安装密码模块并设置密码
Shell "powershell -Command ""Install-Module -Name PdfPassword -Force; Set-PdfPassword -Path '" & tempPdf & "' -OutputPath '" & finalPdf & "' -OpenPassword 'yourSecurePassword'""", vbHide

' 等待处理完成后清理临时文件
Application.Wait Now + TimeValue("00:00:05")
Kill tempPdf

内容的提问来源于stack exchange，提问作者Joey56