忘记Excel工作表保护密码？无需插件，教你2步快速解除！
2021-07-29 本文已影响0人
力耶
右键【sheet1】-【查看代码】-打开代码窗口
image
插入代码
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
粘贴代码，点击【运行】即可。
image
