作者:乔山办公网日期:
返回目录:excel表格制作
DFY769234560
使用VBA代码可批量解密,复制如下代码在VBA中,运行即可。本代码默认e799bee5baa6e79fa5e98193e59b9ee7ad94339密码增加在工作簿中(workbook),如果增加的为工作表(sheet)密码,需要对如下的代码适当修改。
Sub UnprotecAll()
On Error Resume Next
Application.DisplayAlerts = False
Dim my_Link As String
Dim my_Doc As String
Dim i As Single
i = 0
With Application.FileDialog(msoFileDialogFolderPicker)
.Show
.AllowMultiSelect = False
my_Link = .SelectedItems(1)
End With
my_Doc = Dir(my_Link & "\" & "*.xls*")
Do While Len(my_Doc) <> 0
Workbooks.Open Filename:=my_Link & "\" & my_Doc, Password:="123456"
ActiveWorkbook.Unprotect ("123456")
ActiveWorkbook.Save
ActiveWorkbook.Close
i = i + 1
my_Doc = Dir
Loop
MsgBox "共去除密码共" & i & "个文件"
End Sub
楼主现在有董飞云的加密视频吗?求分享