版本一：
xls-》改成。rar=〉worksheets-》sheet1.xml-〉查找-》sheetprotectxxxxxxx /〉删除，，，-》保存-〉修改会后缀。xls

版本二：
已经锁定的excel，按住Alt+F11--》打开excel的开发者工具-〉插入-》选择【模块】-〉插入代码

去除Excl整個工作簿密碼的命令
Sub 工作簿密碼破解()

ActiveWorkbook.Sheets.Copy

    For Each sh In ActiveWorkbook.Sheets

        sh.Visible=True

    Next

End Sub


去除Excel工作表密碼的命令：

Sub密碼破解()

Dim pj As Worksheet

    For Each pj In Worksheets

        pj.Protect AllowFiltering:=True

        pj.Unprotect

    Next

End Sub