HI，大家好，我是星光。
会员群里经常有朋友询问如何破解工作表加密；有个叫王呵呵的网友，可能是股海浮沉沉沉沉沉的缘故，前一秒给工作表加密，后一秒就把密码给忘了，摊手↓↓
今天把过去的一篇推文重新整理一下，提供两种破解工作表加密的方法。
一种是傻瓜模式的VBA，复制运行以下代码，即可抹除当前工作簿所有工作表的保护加密。
代码如看不全，可以左右拖动▼
Sub UnProtct()MsgBox "破解提示：当要求输入密码时请点击取消！”"Application.DisplayAlerts = FalseOn Error Resume NextDim sht As WorksheetFor Each sht In WorksheetsWith sht.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFiltering:=True, AllowUsingPivotTables:=True.Protect DrawingObjects:=False, Contents:=True, Scenarios:=False, AllowFiltering:=True, AllowUsingPivotTables:=True.Protect DrawingObjects:=True, Contents:=True, Scenarios:=False, AllowFiltering:=True, AllowUsingPivotTables:=True.Protect DrawingObjects:=False, Contents:=True, Scenarios:=True, AllowFiltering:=True, AllowUsingPivotTables:=True.UnprotectEnd WithNextApplication.DisplayAlerts = TrueMsgBox "ok"End Sub
另外一种步骤稍多，适合不喜VBA，更喜欢动手动脚的朋友们。
首先，将Excel工作簿的后缀修改为rar，比如演示文件.xlsx，修改为演示文件.rar。
双击该文件，打开方式选择WinRAR。
依次双击打开xl→worksheets→需要破解保护密码的工作表名称，本例为sheet1，打开的方式选择记事本。
在记事本内，将以下内容选中删除后，关闭保存。
"<sheetProtection....../>"
此时系统会询问是否希望在压缩文件中更新它？选择是。
最后关闭所有对话框，将文件后缀名从rar修改回xlsx，以Excel人民的名义打开它，便可以发现相关工作表的保护设置已被全部撤除。
就这么回事。
打个响指，只看不练假把戏，自己作一下看看效果吧。有啥问题照例可以在VIP会员微信答疑群中提问交流，挥挥手，下期再见。
本文由公众号“Excel星球”首发。
点击阅读原文系统学习Excel！
