通过 VBA 代码 清除 Excel 表格保护密码

代码如下：

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

使用方法：鼠标右键点击工作表标签，选择“查看代码”，把上面的代码粘贴到代码框中，点击菜单进行代码即可。