如何用VBA给50个文件设不同密码（附密码表+文件）

喀布哈

1、现在50个文件；
2、文件名和对应密码已放一个Excel中；
3、求代码，点设密码会加密码

一招秒杀

这么简单的问题，问一下AI ，不是很简单吗 ？都人工智能时代了，感觉你还生活在原始社会 石器时代。
打开文件，调用 SaveAs 方法时 指定密码就好啊。

醉眼看尘世

。。。。。。。。。。。。。。。
见附件

飞天篮球猪

仅供参考...

Qs18

1. Sub 加密()
   
2. Application.DisplayAlerts = False: Application.ScreenUpdating = False
   
3.     Dim filePath As String, password As String, i, p, xb As Workbook
   
4.     arr = Sheet1.Range("a1").CurrentRegion.Value
   
5.     p = ThisWorkbook.Path & ""
   
6.    
   
7.     For i = 2 To UBound(arr)
   
8. 
   
9.         filePath = p & arr(i, 2) & ".xlsx"
   
10.         password = arr(i, 3)
    
11.         Set xb = Workbooks.Open(filePath, , , , password)
    
12.         
    
13.         xb.password = password
    
14.         xb.Close (True)
    
15.     Next i
    
16.     MsgBox "密码设置完成！"
    
17.     Application.DisplayAlerts = True: Application.ScreenUpdating = True
    
18. End Sub
    

复制代码

Qs18

试试........

Qs18

试试..........

perfect131

这不是昨晚的有偿单？