关于工作簿解密的问题

ChangeKing7

各位高手，

现在我有多个加密的工作簿，就是打开时需要先输入密码的文档（如图）。

是通过下图这样设置的，“文件-信息-保护工作簿”，版本为office365

在已知密码的情况下，是否可以通过程序批量解除文件打开密码？
我上传一个excel附件，打开密码是1，请各位指导一下，感谢。

jiangxiaoyun

workbooks.open方法就有参数是设置密码打开文件的。

边缘码农

边缘码农

静听溪流

感觉可以先用代码打开工作簿  然后再把密码设置为空

风雨声点滴

Sub 示例()
    Dim folderPath As String
    folderPath = "指定的文件夹路径" ' 请将此处替换为您要遍历的文件夹路径
    Dim fileName As String
    fileName = Dir(folderPath & "\*.xlsx") ' 修改为适合的文件类型，如 *.xlsm, *.xls 等
    Dim wb As Workbook
    Do While fileName <> ""
        Set wb = Workbooks.Open(folderPath & "\" & fileName)
        If wb.ProtectStructure = True Then
            wb.Unprotect Password:="1221" ' 解除工作簿保护，使用密码 "1221"
            MsgBox "已成功解除工作簿保护：" & fileName
        End If
        wb.Close SaveChanges:=True  '保存修改并保存
        fileName = Dir
    Loop
End Sub

ChangeKing7

边缘码农 发表于 2024-7-3 10:53

这种方式可以打开工作簿 能否更进一步使用程序将密码取消呢？

ChangeKing7

静听溪流 发表于 2024-7-3 10:59
感觉可以先用代码打开工作簿  然后再把密码设置为空

请教 密码如何设置为空呀

ChangeKing7

jiangxiaoyun 发表于 2024-7-3 10:39
workbooks.open方法就有参数是设置密码打开文件的。

这种方式可以打开工作簿 能否更进一步使用程序将密码取消呢？

ChangeKing7

风雨声点滴 发表于 2024-7-3 11:54
Sub 示例()
    Dim folderPath As String
    folderPath = "指定的文件夹路径" ' 请将此处替换为您要遍 ...

请问这个代码能否再加一个功能 将密码解除？