Question

让我告诉你这个问题。我们根据报告准备摘要报告，我可以在单独的工作簿中拆分文件。

主要问题是：

我尝试了很多方法来保护使用不同密码的多个工作簿。在我的excel密码文件中，列A中的所有excel名称列表和B列中不同密码的列表（最少100个excel文件，最多可达到500个文件），根据excel列名称需要在文件夹中指定密码列B工作簿。手动每个月都很痛苦

是否有一种简单的方法可以保护多个工作簿而无需打开每个工作簿并通过VBA代码分配密码？据我所知，我们可以为所有工作簿分配相同的密码，但我根据需要根据我的excel存储密码查找不同的密码

非常感谢您的帮助

Answer 1

可能的解决方案

Sub protectwpwd()
Dim i As Long, wb As Workbook, ws As Worksheet
    i = 1
    Set wb = ThisWorkbook
    Set ws = wb.ActiveSheet
    While ws.Cells(i, 1) <> ""
        Workbooks.Open ws.Cells(i, 1)
        ActiveWorkbook.Saveas ws.cells(i,1),Password:=ws.Cells(i, 2)
        ActiveWorkbook.Close
        i = i + 1
    Wend
End Sub

为给定文件夹中的多个工作簿分配密码

1 个答案: