批量为700份PDF文件设置密码的可行方案咨询

Hey，针对你手头700份需密码保护的PDF需求，结合你已经提取好文件名的情况，我整理了几个实用的方案，从自动化编程到简单工具都有，你可以根据自己的情况选：

既然你的文件是通过Word邮件合并生成的，其实可以在合并过程中直接给每个输出的PDF加上密码，不用先生成无密码版再二次处理。用Word VBA就能实现：

1. 打开你的Word模板文件，按Alt+F11打开VBA编辑器
2. 右键点击当前文档，选择「插入」→「模块」
3. 粘贴下面的代码，根据你的实际情况修改参数：

Sub MailMergeToPasswordProtectedPDF()
    Dim mainDoc As Document
    Dim dataSource As MailMergeDataSource
    Dim outputPath As String
    Dim password As String
    
    ' 替换为你的PDF输出文件夹路径
    outputPath = "C:\Your\Output\Folder\"
    ' 替换为你想要设置的统一密码（如果需要每个文件不同密码，可以从Excel数据源读取）
    password = "YourSecurePassword"
    
    Set mainDoc = ActiveDocument
    Set dataSource = mainDoc.MailMerge.DataSource
    
    mainDoc.MailMerge.Destination = wdSendToNewDocument
    mainDoc.MailMerge.SuppressBlankLines = True
    
    With dataSource
        .ActiveRecord = wdFirstRecord
        Do
            ' 只合并当前一条记录
            .FirstRecord = .ActiveRecord
            .LastRecord = .ActiveRecord
            mainDoc.MailMerge.Execute
            
            ' 从数据源获取文件名（假设你的Excel里有列名为"FileName"的字段）
            Dim fileName As String
            fileName = .DataFields("FileName").Value & ".pdf"
            
            ' 导出为带密码的PDF
            ActiveDocument.ExportAsFixedFormat _
                OutputFileName:=outputPath & fileName, _
                ExportFormat:=wdExportFormatPDF, _
                Password:=password ' 这里设置的是打开PDF的密码
            
            ' 关闭临时生成的Word文档，不保存
            ActiveDocument.Close SaveChanges:=wdDoNotSaveChanges
            
            ' 循环直到处理完所有记录
            If .ActiveRecord = .RecordCount Then
                Exit Do
            End If
            .ActiveRecord = wdNextRecord
        Loop
    End With
    
    MsgBox "所有PDF已生成并添加密码保护！", vbInformation
End Sub

4. 修改outputPath、password，以及数据源里的文件名字段名（如果你的列名不是"FileName"）
5. 按F5运行代码，等待处理完成即可

如果你已经生成了所有无密码的PDF，并且Excel里有完整的文件名/路径列表，可以用Excel VBA调用Adobe Acrobat的API来批量加密（注意：需要安装Adobe Acrobat Pro，不是免费的Reader）：

1. 打开存有名列表的Excel文件，按Alt+F11打开VBA编辑器
2. 插入模块，粘贴下面的代码：

Sub BatchProtectPDFs()
    Dim acroApp As Object
    Dim acroDoc As Object
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Dim pdfPath As String
    Dim password As String
    
    ' 替换为你的工作表名（比如"Sheet1"）
    Set ws = ThisWorkbook.Sheets("Sheet1")
    ' 假设文件名/完整路径在A列，获取最后一行的行号
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    ' 替换为你的统一密码
    password = "YourSecurePassword"
    
    ' 初始化Acrobat应用
    Set acroApp = CreateObject("AcroExch.App")
    
    ' 遍历所有文件名
    For i = 2 To lastRow ' 假设第一行是表头，从第二行开始处理
        pdfPath = ws.Cells(i, "A").Value
        
        Set acroDoc = CreateObject("AcroExch.PDDoc")
        If acroDoc.Open(pdfPath) Then
            ' 设置密码（第一个参数是权限密码，留空则仅设置打开密码）
            If acroDoc.SetPasswords("", password) Then
                ' 保存修改（1=覆盖原文件，也可以改成新路径避免覆盖）
                acroDoc.Save 1, pdfPath
                ws.Cells(i, "B").Value = "已加密"
            Else
                ws.Cells(i, "B").Value = "加密失败"
            End If
            acroDoc.Close
        Else
            ws.Cells(i, "B").Value = "文件无法打开"
        End If
        Set acroDoc = Nothing
    Next i
    
    ' 关闭Acrobat应用
    acroApp.Exit
    Set acroApp = Nothing
    
    MsgBox "批量加密完成！", vbInformation
End Sub

3. 修改工作表名、密码，以及文件名所在的列（如果不是A列）
4. 运行代码，完成后会在B列显示处理状态

如果不想写代码，可以用免费的pdftk工具（PDF Toolkit）来批量加密：

1. 下载安装pdftk（注意对应你的系统版本）
2. 把所有PDF的完整路径保存到一个文本文件里，比如filelist.txt，每行一个路径
3. 新建一个批处理文件（比如encrypt_pdfs.bat），写入以下内容：

@echo off
set "password=YourSecurePassword"
for /f "delims=" %%i in (filelist.txt) do (
    pdftk "%%i" output "加密_%%~nxi" owner_pw %password% user_pw %password%
)
echo 处理完成！
pause

4. 把filelist.txt和批处理文件放在同一个文件夹，运行批处理，会生成带「加密_」前缀的加密PDF文件

小提示 #

• 如果需要每个PDF用不同的密码，可以修改VBA代码，从Excel的另一列读取对应文件的密码
• 操作前记得备份原文件，避免意外丢失数据

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