Sub 解除所有工作表密码()
Dim ws As Worksheet
For Each ws In Worksheets
ws.Protect AllowFiltering:=True
ws.Unprotect
Next
End Sub
