VBATrack批量破解工作表加密

Sub pj()'批量破解工作表加密
Dim sht As Worksheet
    For Each sht In Worksheets
        sht.Protect AllowFiltering:=True
        sht.Unprotect
        Next
End Sub