Soru Tüm Sayfalara Sayfa Koruması Koymak ve Kaldırmak

[Believing]

Sayın Formdaş Arkadaşlar,

Ekteki çalışmada aşağıdaki kod yardımı ile tüm sayfalara aynı anda sayfa koruması koyuyor veya kaldırıyorum.
Bunu yaparken istisna uygulamak istiyorum.
"MAINPAGE" ve TEMPLATE" sayfalarına herhangi bir işlem uygulanmayacak her zaman açık kalacaktır.
Bu koşulları sağlamak için mevcut kodu nasıl revize etmeliyim?

Saygılarımla,

 

[baydeniro]

[TR][TD]
Sub SayfaKoru()
For Each Worksheet In ActiveWorkbook.Worksheets
Worksheet.Protect Password:="1"
Next
End Sub

[/TD][/TR]
[TR][TD]

[/TD][/TR]