批量撤销工作表统一密码在excel里面有许多工作表，对各工作表进
在里面有许多工作表，对各工作表进行了统一的密码保护，但有的工作表又没有设置密码，请问能否给一个宏，对其批量撤销密码，例如密码520
Sub unprotect() Dim i, j As Integer j = Worksheets.Count For i = 1 To j Worksheets(i).unprotect "520" Next End Sub