nnsea 发表于 2020-12-9 08:31:13

批量破解工作表加密VBA

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


页: [1]
查看完整版本: 批量破解工作表加密VBA