Excel 解除 工作表保护代码
右击工作表,查看代码,copy and run ,保存重新打开
Sub jp()
Dim sht As Worksheet
For Each sht In Worksheets
sht.Protect AllowFiltering:=True
sht.Unprotect
Next
End Sub
Excel 解除 工作表保护代码
右击工作表,查看代码,copy and run ,保存重新打开
Sub jp()
Dim sht As Worksheet
For Each sht In Worksheets
sht.Protect AllowFiltering:=True
sht.Unprotect
Next
End Sub