破解Excel工作表保护密码

Sub 密码破解()
　　ActiveSheet.Protect DrawingObjects:=True, CONTENTS:=True, AllowFiltering:=True
　　ActiveSheet.Protect DrawingObjects:=False, CONTENTS:=True, AllowFiltering:=True
　　ActiveSheet.Unprotect
End Sub