vba只能给03版本的Excel文件加密，07的加密文件就损坏，帮看看什么问题

zc403512688

依葫芦画瓢，根据大神的加密代码，改成解密的代码以供大家使用。

1. Sub ykcbfjm()    '//2024.8.5     工作簿加密
   
2.    
   
3.     On Error GoTo err
   
4.     Dim fn, wb
   
5.     Application.DisplayAlerts = False
   
6.     Application.ScreenUpdating = False
   
7.     Set fso = CreateObject("Scripting.FileSystemObject")
   
8.     Set d = CreateObject("Scripting.Dictionary")
   
9.     p = ThisWorkbook.Path & ""
   
10.     r = Cells(Rows.Count, 1).End(3).Row
    
11.     For i = 2 To r
    
12.         s = Cells(i, 1)
    
13.         If s <> Empty Then d(s) = Array(Cells(i, 2), Cells(i, 3))
    
14.     Next
    
15.     For Each f In fso.GetFolder(p).Files
    
16.         If LCase$(f.Name) Like "*.xls*" Then
    
17.             If InStr(f.Name, ThisWorkbook.Name) = 0 Then
    
18.                 fn = fso.GetBaseName(f)
    
19.                 fx = fso.GetExtensionName(f)
    
20.                 If InStr(fx, "xlsx") Then mm = 51 Else mm = 56
    
21.                 If d.exists(fn) Then
    
22.                     pw = d(fn)(0)
    
23.                     rw = d(fn)(1)
    
24.                     With Workbooks.Open(f, , , , pw, rw)
    
25.                         .SaveAs Filename:=f, FileFormat:=mm, Password:="", WriteResPassword:=""
    
26.                         .Close
    
27.                     End With
    
28.                 End If
    
29.             End If
    
30.         End If
    
31.     Next f
    
32.     Application.DisplayAlerts = True
    
33.     Application.ScreenUpdating = True
    
34.     MsgBox "处理完毕!"
    
35.         Exit Sub
    
36. err:    MsgBox "密码错误！"
    
37. 
    
38. End Sub

复制代码