Tüm çalışma sayfalarını tek buton ile koruma

[mirmika]

bu konuyu epeyce aradım sitede birşeyler buldum ama kendi işime yarayacak şekilde düzenleyemedim.

excell dosyamdaki tüm çalışma sayfalarını tek butonla korumak istiyorum.

başka bir butonla da hepsinin korumasını kaldırmak istiyorum.

bunun bir kodu var mı?

2010 kullanıyorum

 

[Necdet]

Merhaba,

Aşağıdaki kodları deneyebilirsiniz.

Sub Sayfalari_Koru()
    
    Dim Sayfa As Worksheet
    For Each Sayfa In Worksheets
        Sayfa.Protect "123"
    Next Sayfa
    
End Sub

Sub Sayfalari_Koruma()
    
    Dim Sayfa As Worksheet
    For Each Sayfa In Worksheets
        Sayfa.Unprotect "123"
    Next Sayfa
    
End Sub

 

[mirmika]

SAğolun Necdet Bey,

bunları bulmuştum ama becerip de kullanamamıştım. Ama hatamı buldum. Şimdi kullanıyorum.

Teşekkürler.

 

[Necdet]

Rica ederim, güle güle kullanınız.

 

[kadifekale]

Çok güzel bir çalışma teşekkürler.