一招破解工作表保护密码

前言

工作中，为了防止别人随意修改自己的模板，我们经常采用工作表保护，将重要的公式和区域进行锁定，只允许别人编辑特定得区域，同时进行密码保护，防止别人修改，但同时也会给自己挖一个坑，如果密码忘了怎么办？

1方法

第一：穷举法

将自己用过的密码，包括但不限于生日，工号，银行卡密码等等，统统试一遍，运气好的话，可能能找到。

第二：破解软件

从网上下载专门的破解软件，但有可能带来一大堆广告或病毒。

第三：找老崔，教你一招破解工作表保护密码

2破解大法

打开设置工作表保护的工作薄，选择有密码保护的工作表，如Sheet1，右键\查看代码

弹出VBA 窗口

将下列代码复制到代码窗口，按F5运行，即可解除密码

Sub 破解()

ActiveSheet.Protect AllowFiltering:=True

ActiveSheet.Unprotect

End Sub

如果此工作薄的每个工作表都设有工作表保护，可以稍微修改一下程序，加一个循环就可以了！

Sub 破解增强版()

dim ws as worksheet

For Each ws In Worksheets

With ws

.Protect AllowFiltering:=True

.Unprotect

End With

Next

End Sub

是不是很简单，够暴力吧，你问我密码是多少？我也不知道，反正密码已经没有了。

声明

此方法仅限于工作表保护，如果设置了工作薄保护，此程序不使用，另有它法

请尊重别人的设置，因为只有规范的输入，才能保证有效的数据处理

不可用于非法之目的。

如果你觉得有用，请转发朋友圈，明天我将继续讲解工作薄保护的破解。

END