For Each

• Bir Çalışma Kitabındaki tüm Çalışma Sayfaları için kod yürütme
• Bir Aralık içindeki tüm Hücreler için kod yürütme
• Çalışma Sayfası Yorumları koleksiyonundaki her yorum için kod yürütme

Dim Sh As Worksheet

For Each Sh In ThisWorkbook.Worksheets
    Sh.Protect "test"
Next Sh

Dim hucre As Range
For Each hucre In ActiveSheet.UsedRange
'bir koşulun karşılanıp karşılanmadığını kontrol etmek için burada IF'i kullanabilirsiniz
Next hucre

Örnek: Tüm sayfaları korumak ve bunu yaparken kullanıcıların sadece içeriği biçimlendirmelerine izin vermek

Sub sayfalari_koruma()

Dim sh As Worksheet
 
For Each sh In ThisWorkbook.Worksheets
    sh.Protect "1234", , , , , True, True, True
Next sh

End Sub

Sub korumayi_kaldırma()

Dim sh As Worksheet

Application.ScreenUpdating = False

For Each sh In ThisWorkbook.Worksheets
    sh.Unprotect Password:="1234"
Next sh

Application.ScreenUpdating = True

End Sub

Sub goster()
    
    Dim sh As Worksheet
    
    For Each sh In Worksheets
        sh.Visible = True
    Next sh
    
End Sub