求大神解决小弟一个难题

洞房不败

求大神帮忙解决

chxw68

需要上传几个文件测试用。

洞房不败

chxw68 发表于 2018-9-14 08:26
需要上传几个文件测试用。

好哒，稍等

洞房不败

chxw68 发表于 2018-9-14 08:26
需要上传几个文件测试用。

可以啦，您试试

chxw68

1. Sub test()
   
2.   Dim wb As Workbook
   
3.   Dim ws As Worksheet
   
4.   Dim mypath$, myname$
   
5.   Application.ScreenUpdating = False
   
6.   mypath = ThisWorkbook.Path & ""
   
7.   myname = Dir(mypath & myname)
   
8.   Do While myname <> ""
   
9.     Set wb = Workbooks.Open(Filename:=mypath & myname, Password:="123456")
   
10.     With wb
    
11.       .SaveAs Password:=""
    
12.       .Close True
    
13.     End With
    
14.     myname = Dir
    
15.   Loop
    
16.   Application.ScreenUpdating = True
    
17.   MsgBox "密码删除完毕！"
    
18. End Sub
    

复制代码

chxw68

详见附件。

洞房不败

chxw68 发表于 2018-9-14 09:04
详见附件。

谢谢大神我研究下