Очистка листов от данных

[and150382]

Здравствуйте !

Вывел на кнопку очистку листов.Эти листы под паролем. Когда нажимаю кнопку очистки - запрашивает пароль сначало для одного листа потом для другого.
Как сделать чтобы не спрашивал пароль, а сам снимал , а после очистки ставил?

Код на кнопке:

Private Sub CommandButton6_Click()
Sheets("Перекуры").Select
ActiveWindow.SmallScroll Down:=-15
Sheets("Перекуры").Select
ActiveSheet.Unprotect
ActiveWindow.SmallScroll Down:=-9
Range("B3:B42").Select
Selection.ClearContents
Range("D3:D42").Select
Selection.ClearContents
Range("F3:F42").Select
Selection.ClearContents
Range("H3:H42").Select
Selection.ClearContents
Range("J3:J42").Select
Selection.ClearContents
Range("L3:L42").Select
Selection.ClearContents
Range("N3:N42").Select
Selection.ClearContents
Range("P3:P42").Select
Selection.ClearContents
ActiveWindow.ScrollColumn = 2
Range("R3:R42").Select
Selection.ClearContents
ActiveWindow.ScrollColumn = 1
Range("B3").Select
Sheets("Перекуры").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFiltering:=True
Sheets("База").Select
ActiveWindow.SmallScroll Down:=-12
Sheets("База").Select
ActiveSheet.Unprotect
Range("B10:Q140").Select
Selection.ClearContents
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Selection.ClearContents
Range("C10:C140").Select
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
ActiveWindow.SmallScroll Down:=-147
Range("C10").Select
Sheets("База").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFiltering:=True
End Sub

[Watcher_1]

ActiveSheet.Protect Password:="Пароль для блокировки листа", DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFiltering:=True
ActiveSheet.Unprotect Password:="Пароль для разблокировки листа"

[EducatedFool]

В начале макроса:

Sheets("Перекуры").Unprotect "ВашПароль" ' временно снимаем защиту

в конце макроса:

Sheets("Перекуры").Protect "ВашПароль" ' ставим защиту обратно

[and150382]

Спасибо большое!