已知excel保护密码，如何批量解锁文件夹内所有表格的密码呢〉

已知excel保护密码，如何批量解锁文件夹内所有表格的密码呢〉

是否所有的密码都一样？追问是的，密码是TZHJTDWIVSBWYKU追答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

可能要用VBA来做了