分类：电脑/网络-软件-办公软件
问题：批量撤销工作表统一密码在excel里面有许多工作表，对各工作表进 
在里面有许多工作表，对各工作表进行了统一的密码保护，但有的工作表又没有设置密码，请问能否给一个宏，对其批量撤销密码，例如密码520
回答：Sub unprotect()

Dim i, j As Integer

j = Worksheets.Count
For i = 1 To j
  Worksheets(i).unprotect "520"
Next

End Sub