操作步骤：打开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
原文：http://www.cnblogs.com/yl153/p/6722457.html