为不同的文件分配不同的密码

Question

我在 Excel 中有下表，其中包含不同的文件名及其路径。
如何为所有这些 Excel 工作簿分配密码？

假设单元格 B2 中的文件路径应在 C2 中分配密码 单元格 B3 中的文件路径应在 C3... 等中分配密码。

Excel文件

我发现 VBA 代码可以为同一文件夹下的所有文件分配一个密码，但是需要为 1000 多个文件分配不同的密码。我还需要稍后删除所有密码。

Answer 1

声明两个变量，一个保存文件名，另一个保存密码。

然后，您只需要一个循环（而不是两个），您需要：

1. 构建你要设置密码的文件全名（其实你例子的B列里就有），

2. 获取此文件需要使用的密码（在您的示例中为 C 列），

3. 打开你解压的文件，

4. 使用您提取的密码另存为，

5. 关闭文件。

只要检索到的文件名为空，循环就会退出。

此描述可能需要复杂，但我向您保证它非常简单。只需尝试几次，您就会体验到自己构建东西的满足感。

提示：Excel 的 VB 编辑器使您能够设置断点以停止执行并检查变量的值；这也将帮助您更好地了解自己在做什么，如果出现问题，请快速找出问题所在。

Answer 2

@FDavidov

谢谢！我可以找到一个代码来为文件夹中的所有文件分配一个密码。但我不知道如何更改它以适合我的 scanario。任何人都可以建议我应该如何改变？谢谢！！！

Public Sub addPassword() 将 FSO 调暗为对象 将文件夹作为对象，子文件夹作为对象 将 wb 作为对象调暗

Set FSO = CreateObject("Scripting.FileSystemObject")
folderPath = ActiveSheet.Range("C2").Value
pwd = ActiveSheet.Range("C3").Value
Set folder = FSO.GetFolder(folderPath)

With Application
    .DisplayAlerts = False
    .ScreenUpdating = False
    .EnableEvents = False
    .AskToUpdateLinks = False
End With

For Each wb In folder.Files
    If Right(wb.Name, 3) = "xls" Or Right(wb.Name, 4) = "xlsx" Or Right(wb.Name, 4) = "xlsm" Then
        Set masterWB = Workbooks.Open(wb)
        ActiveWorkbook.SaveAs Filename:=Application.ActiveWorkbook.FullName, Password:=pwd
        ActiveWorkbook.Close True
    End If
Next
For Each subfolder In folder.SubFolders
    For Each wb In subfolder.Files
        If Right(wb.Name, 3) = "xls" Or Right(wb.Name, 4) = "xlsx" Or Right(wb.Name, 4) = "xlsm" Then
            Set masterWB = Workbooks.Open(wb)
            ActiveWorkbook.SaveAs Filename:=Application.ActiveWorkbook.FullName, Password:=pwd
            ActiveWorkbook.Close True
        End If
    Next
Next
With Application
    .DisplayAlerts = True
    .ScreenUpdating = True
    .EnableEvents = True
    .AskToUpdateLinks = True
End With

结束子