Sub sayfalarıkoru()
'Sadece Sayfa1 i koruyan kodlar
Dim Sayfam As Worksheet
Set Sayfam = Worksheets(1)
Sayfam.Select
Sayfam.Protect "kabatashaber", True, True, True 'Parolayı kabatashaber olarak yazdık
End Sub

Sub sayfalarıkoru1()
'tüm Sayfaları şifreleme FOR EACH döngüsünü kullanmak
Dim Sayfam As Worksheet
For Each Sayfam In Worksheets ' Set yerine FOR Each yazdık _ 'eşitti imi yerine de in yazdık parantezi ve içindeki sayıyı kaldırdık
Sayfam.Select 'Bu bildiriyi yazmaya gerek yoktur sadece yapılan işmelrin gözükmesi için yazdık
Sayfam.Protect "kabatashaber", True, True, True
Next Sayfam
End Sub

Sub Sayfakorumalarını_kaldır()
Dim Sayfam As Worksheet
For Each Sayfam In Worksheets
Sayfam.Select 'Bu bildiriyi yazmaya gerek yoktur sadece yapılan işmelrin gözükmesi için yazdık
Sayfam.Unprotect "kabatashaber"
Next Sayfam
End Sub