Excel工作表密码保护的破解

操作步骤：打开Visual Basic编辑器，单击“插入-->模块“，将以下代码粘贴到模块中即可。

Sub DelPassword()

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, AllowFiltering:=True
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, AllowFiltering:=True
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, AllowFiltering:=True
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, AllowFiltering:=True
ActiveSheet.Unprotect

End Sub

 

转载于:https://www.cnblogs.com/yl153/p/6722457.html