VBA-Track批量破解工作表加密 

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

　　

posted @ 2021-11-25 16:08  sMei  阅读(105)  评论(0)  编辑  收藏  举报