批量解除Excel密码的VBA代码？求指出代码问题，修改代码

[Neutrino♐️♑️]

我现在要解决的问题是：我有很多excel文件在同一个文件夹里，文件都有一个相同的密码且我知道，我希望把这些密码都解除，让每个excel文件都变成直接可以打开的文件。excel文件里的sheet是没有密码的。我在百度知道看到一个代码，是对本地文件夹里的excel文件解密的，但是我按照它的操作没有成功，希望有高手能够帮我看看如何修改就能实现我的需求，不胜感激！！！

引用：https://zhidao.baidu.com/question/2117910715489312707.html
————————————————————————————————————————————————
Sub xx()
Dim pth, fn, i, j, n
pth = ThisWorkbook.Path & "\"
fn = Dir(pth & "*.xls")
Do While fn <> ""
If fn <> ThisWorkbook.Name Then
Application.Workbooks.Open pth & fn
n = Workbooks(fn).Sheets.Count
For j = 1 To n
Workbooks(fn).Sheets(j).Unprotect "TZHJTDWIVSBWYKU"
Next
Application.Workbooks(fn).Close True
End If
fn = Dir
Loop
End Sub
新建一个excel文件，Alt+F11打开VBE，新建一个模块，复制上面的代码，退出VBE，把excel文件保存到要解密的文件夹，执行宏xx
_______________________________________________________________________________________________________________________

[Neutrino♐️♑️]

引用 1 楼 脆皮大雪糕 的回复:

录制一个宏，然后修改一下，循环遍历所有文件就是了

解除密码，是excel一开始的事情，所以不知道后面录制对前面解密有没有用，然后请问上面代码有问题吗？

[脆皮大雪糕]

首先，你的代码是对 sheet的 Unprotect操作，而不是对 Workbook 的 Unprotect操作。具体的应该是 Workbook.Unprotect方法。 其次，Workbook.Unprotect 删除表或工作簿的保护。你要输入密码打开这个workbook，才能 Unprotect Application.Workbooks.Open pth & fn, Password:="TZHJTDWIVSBWYKU"

[脆皮大雪糕]

录制一个宏，然后修改一下，循环遍历所有文件就是了

[bonesoup]

Sub xx()
Dim pth, fn, i, j, n
pth = ThisWorkbook.Path & "\"
fn = Dir(pth & "*.xls")
Do While fn <> ""
If fn <> ThisWorkbook.Name Then
Application.Workbooks.Open pth & fn, , , , "工作薄密码"
Workbooks(fn).Unprotect "工作薄密码"
Application.Workbooks(fn).Close True
End If
fn = Dir
Loop
End Sub