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

-1

让我告诉你这个问题。我们根据报告准备总结报告，我可以将文件拆分为单独的工作簿。将密码分配给给定文件夹中的多个工作簿

的主要问题是：

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

有没有一种简单的方法来保护多个工作簿，而无需打开每个工作簿并通过VBA代码分配密码？按我的知识，我们可以根据我的Excel中存储的密码要求

分配相同的密码，所有工作簿，但在寻找不同的密码非常感谢您的帮助

来源

2017-02-12 Basavaraj k.s.

_ “我尝试了很多方法来保护多个工作簿使用不同的密码”_：向我们展示其中一种方法 – user3598756

谢谢您的回复.... –

Sub Passwordprotect（） '打开密码保护文件 Application.DisplayAlerts = False Application.ScreenUpdating = False Application.Workbooks.Open“C：\ Cb.xlsx”，False ActiveWorkbook.SaveAs Filename：=“C：\ Cb.xlsx”，Password：=“basu” ActiveWorkbook.Close SaveChanges： =真结束小组这里每天我手工编写...它需要长时间，甚至优于500名和路径我需要写 –

一个可能的解决方案

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

来源

2017-02-12 15:51:31 h2so4

你好谢谢你的代码我得到的错误，因为如何编写代码搜索我的文件夹内的代码分配密码 –

通过循环....是的，我们可以...需要修改，因为它应该看看我可以给它的文件夹，然后它应该开始分配所述列A Excel名称和列B密码保持循环直到最后请帮我 –

请modi FY如何循环中的文件夹目录 –

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

回答

相关问题