关于工作簿解密的问题

f8b1987

Excel工作圈小工具14.01C.zip (245.57 KB, 下载次数: 20)

2024-7-3 14:28 上传

点击文件名下载附件

之前写的一个工具，工作簿--密码管理器
先打开一个空表格，A列标题文件名称，B列旧密码，C列新密码
选择文件夹路径，选择需要处理的工作簿
点击取消或更改密码即可

边缘码农

边缘码农

Set wb = Workbooks.Open(FileName:=FileName, Password:="打开文件的密码", WriteResPassword:="修改文件的密码")

wb.SaveAs FileName:=FileName, Password:="", WriteResPassword:=""

类似这样的代码，可以试试。
一个是打开密码，一个是编辑密码。

ChangeKing7

边缘码农 发表于 2024-7-3 15:03
Set wb = Workbooks.Open(FileName:=FileName, Password:="打开文件的密码", WriteResPassword:="修改文件 ...

果然 厉害！

风雨声点滴

ChangeKing7 发表于 2024-7-3 13:49
请问这个代码能否再加一个功能 将密码解除？

Sub 示例()
    Dim folderPath As String
    folderPath = "C:\Users\asus\Desktop\新建文件夹" ' 请将此处替换为您要遍历的文件夹路径
    Dim fileName As String
    fileName = Dir(folderPath & "\*.xlsx") ' 修改为适合的文件类型，如 *.xlsm, *.xls 等
    Dim wb As Workbook
    Do While fileName <> ""
        Set wb = Workbooks.Open(folderPath & "\" & fileName, Password:=11)  '默认每个工作簿密码为11
            wb.Password = "" ' 设置密码为空
        wb.Close SaveChanges:=True  '保存修改并保存
        fileName = Dir
    Loop
End Sub

风雨声点滴

ChangeKing7 发表于 2024-7-3 13:49
请问这个代码能否再加一个功能 将密码解除？

文字在审核，你可以复制看看  测试正常运行