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

答案:2 悬赏:30 手机版

解决时间 2021-11-13 06:41

提问者网友：刺鸟
2021-11-12 20:24

最佳答案

五星知识达人网友：走死在岁月里
2021-11-12 21:39

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

全部回答

1楼网友：孤独入客枕
2021-11-12 22:44

可能要用VBA来做了

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息