破解Excel密码方法

2019-1-14

1、按 Alt+F11 ，调出VBA编辑窗口。

2，复制以下代码到VBA编辑框。

Sub pojie()
ActiveSheet.Protect DrawingObjects:=True, contents:=True, AllowFiltering:=True
ActiveSheet.Protect DrawingObjects:=False, contents:=True, AllowFiltering:=True
ActiveSheet.Unprotect
End Sub

Sub pojie()

ActiveSheet.Protect DrawingObjects:=True, contents:=True, AllowFiltering:=True

ActiveSheet.Protect DrawingObjects:=False, contents:=True, AllowFiltering:=True

ActiveSheet.Unprotect

End Sub

3，点击运行，保存。

THE END