Alt+F11打开VBA编辑程序

 打开模块编辑，输入以下代码：

Sub 破解()ActiveSheet.Protect DrawingObjects:=True, CONTENTS:=True, AllowFiltering:=TrueActiveSheet.Protect DrawingObjects:=False, CONTENTS:=True, AllowFiltering:=TrueActiveSheet.UnprotectEnd Sub

然后执行，弹出输入密码框后点击取消，ok