破解Excel密码方法

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，点击运行，保存。

本作品采用知识共享署名-非商业性使用-禁止演绎 4.0 国际许可协议进行许可

破解Excel密码方法

文章评论