Sadece kilidi açılmış hücreleri seç ve korumaya al.

[6729626]

Sayfa üzerinde bir bütunla dosyadaki bütün sayfaları korumaya almak istediğimizde "Sadece kilidi açılmış hücreleri seç" bölümü seçilmiş olarak ve makro içinde benim belirlediğim bir şifreyi vererek sayfaları korumaya alabilirmiyiz?

 

[Ferhat Pazarçevirdi]

Aşağıdak kodları bir butona atayınız.

Sub Tum_Sayfalari_Koru()
Dim sh As Worksheet
For Each sh In ThisWorkbook.Sheets
     sh.EnableSelection = xlUnlockedCells
     sh.Protect "1234"
Next
End Sub

 

[6729626]

Teşekür

Teşekkürler Sn. Ferhat Hocam kod tam istediğim gibi.