Alt+F11打开VBA编辑程序
打开模块编辑,输入以下代码:
Sub 破解()
ActiveSheet.Protect DrawingObjects:=True, CONTENTS:=True, AllowFiltering:=True
ActiveSheet.Protect DrawingObjects:=False, CONTENTS:=True, AllowFiltering:=True
ActiveSheet.Unprotect
End Sub
然后执行,弹出输入密码框后点击取消,ok