如何同时对一个excel的多个sheet进行取消保护

Sub 对所有工作表保护或撒消保护()
M = MsgBox("以前已保护的工作表密码不变，若要统一密码请先撒消已保护的工作表。" & Chr(10) & "选[是]对所有工作表进行保护，选[否]对所有工作表撒消保护。", vbYesNoCancel)

If M = vbYes Then
a = InputBox("请输入工作表保护密码：")
For N = 1 To Worksheets.Count
Worksheets(N).Protect Password:=a, DrawingObjects:=True, Contents:=True, Scenarios:=True
Next
End If

If M = vbNo Then
Line1: a = InputBox("请输入工作表撒消保护密码：")
For N = 1 To Worksheets.Count
On Error Resume Next
Worksheets(N).Unprotect Password:=a
If Err.Number <> 0 And E = 0 Then
E = N
End If
Next
If E <> 0 Then
Worksheets(E).Select
E = 0
M = MsgBox("对于此表密码不正确，是否重新输入?", vbYesNo)
If M = vbYes Then GoTo Line1
End If
End If
End Sub

有！
利用宏。
你录制取消一个表的宏，再修改一下，加上一个循环就行了。
我的代码，你要不要？

========================================
= 您的问题==我的课题 奉献知识==辉煌生命 =
= 黑龙江省 张志晨 =
========================================