表格密码清除

清除XLSX表格密码方法

注：本文所述技巧仅对.xlsx格式的表格文件有效

• 1. 打开资源管理器，点击“查看”→“显示/隐藏”，勾选“文件扩展名”显示;　　
• 2. 右击要处理的Excel文件，选择“重命名”，将文件扩展名修改为“.zip”。然后，在弹出的安全提示中点击“是”;
• 3. 打开压缩文件，双击“xl”→“worksheets”，这里会默认显示出当前工作簿所包含的所有工作表。双击自己要破解的那个，文件类型对话框选择“记事本”;

找到已加密的“sheet1.xml”文件

• 4. 按下Ctrl+F调出查找对话框，输入“Protection”，将搜索到的“Protection”行全部删除(以“<>”为界限)，按下Ctrl+S保存;

删除“Protection”语句所在整组行内容　　

• 5. 在压缩软件对话框中点击“是”，将修改更新回压缩包;
• 6. 关闭压缩软件，将文件扩展名改回原来的“.xlsx”。再次打开文件时，工作表密码就已经被清除了。

清除工作簿密码方法：

• 1，打开工作簿，
• 2，按下键盘的“Alt”键 + F11，进入Microsoft visual basic编辑器，
• 3，点击“插入”，“模块”
• 4，输入以下代码，点击运行。
• 5，运行完回到刚才的表格，即可正常编辑，需将关掉工作表格保护，WPS界面：点击“审阅”，再点击“撤销工作表保护”，保存。

以下命令为清除密码代码（作参考）

1，工作簿密码清除代码

Sub 工作簿密码破解()

ActiveWorkbook.Sheets.Copy

    For Each sh In ActiveWorkbook.Sheets

        sh.Visible = True

    Next

End Sub

2，工作表清除代码

Sub密码破解()

Dim pj As Worksheet

    For Each pj In Worksheets

        pj.Protect AllowFiltering:=True

        pj.Unprotect

    Next

End Sub