作者:乔山办公网日期:
返回目录:excel表格制作
使用VBA代码可批量解密,复制如下代码在VBA中,运行即可。本代码默认密码增加在工作簿中(workbook),如果增加的为工作表(sheet)密码,需要对e5a48de588b6e79fa5e98193339如下的代码适当修改。
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
我推荐您用文件夹加密超抄级大师试试。
文件夹加密超级大师支持所有windows系统,可以加密文件夹,加密文件,保护磁盘和数据粉碎,使用起来非常方便。
在需要加密的文件百和文件夹上单击鼠标右键选择加密就可以了。
解密时只要双击加密的文件夹和文件,输入正确的密码就可以解密。
文件夹加密超级大师加密后的文件和文件夹可以防止删除、复制和移动。
相对于其他的文件夹加密软件和文件加密软件,功能和性能还有操作度都更加的出色。
并且有微软、360和金山的安全认证,是一款绝对安全的文件夹加密软件。
您可以到百度上下载文件夹加密超级大师来给您的文件和文件夹加密,看看使用效果怎么样?
批量解锁工作簿打开密码模板一个
使用方法:
1.将模板与待解锁工作簿放到同一个文件夹下
2.在[A1]写下密码
3.点按钮等待成功