Снятие защиты листа

[Кнопка77]

Ребят...не пойму в чём ошибка...
Вот условие задачи:
Написать процедуру.
1. С пом. диалогового окна ввести пароль и присвоить значение переменной Password
2. если значение введённого пароля "1", то с пом. упр. структуры For each sheet in ActiveWorkBook.Sheets.........next sheet
каждому листу активной рабочей книги задать выполнение след.действий:
-выбрать лист
- снять защиту с листа
- свойству Visible присвоить значение true
Если пароль введён неверно, выдать соответствующее сообщение.

Sub Unprotect()
Dim Sh As Worksheet, Password As String
Password = InputBox("Введите пароль")
For Each Sheet In ActiveWorkbook.Sheets
Sh.Select
Sh.Unprotect
Visible = True
MsgBox "Защита с листов снята!"
Next Sheet
MsgBox "Пароль введён неверно!"
End Sub

Не подскажете в чём ошибка?

[doober]

Sub Unprotect()
Dim Sh As Worksheet, Password As String
Password = InputBox("Введите пароль")
For Each Sh In ActiveWorkbook.Sheets
Sh.Select
Sh.Unprotect
Visible = True
MsgBox "Защита с листов снята!"
Next Sheet
MsgBox "Пароль введён неверно!"
End Sub

[Кнопка77]

Спасиб огромное!

[zenner]

А подскажите пожалуйста как снять защиту всей книги? Спасибо!(есть файл который нужно откорректировать)