解除工作表密码保护/删除excel保护工作表的密码

注: 仅用于自己忘记密码用,不可以做其他用途呀

三步走

1. 在有工作表(sheet)保护右击"查看密码",如下图

 

 2.在查看代码页,输入代码

 

 

 

 代码如下,全部复制,Sub DeletePW()是代码开始 End Sub 是代码结束,中间是执行的代码

Sub DeletePW()
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

3. 点击查看代码页上蓝色的运行即可,大功告成

 

 

参考文章: https://www.sohu.com/a/259773745_99966126