Sayfalara Toplu Halde Koruma Koyma

[hamitcan]

.Protect komutu ile diğer sayfaları da koruma altına alabilirsiniz.

 

[dbicer83]

Teşekkür ederim.Emeğinize sağlık.
İyi çalışmalar.

 

[dbicer83]

Hücrelerin seçilmesni istemiyorum.
Sheet.EnableSelection = xlNoSelection
yapıyorum ama olmuyor nasıl yapabilirim.teşekkürler.

 

[hamitcan]

Sub Sayfayi_Koru()
    For Each Sht In ThisWorkbook.Worksheets
    If Sht.Name = "Sayfa1" Then
       Sht.Protect "a", DrawingObjects:=True, Contents:=True, Scenarios:=True 'şifre "a"
       Sht.EnableSelection = xlUnlockedCells
       Sht.EnableSelection = xlNoSelection'Seçimi engellemek için
    ElseIf Sht.Name = "Sayfa2" Then
       Sht.Protect "a", DrawingObjects:=True, Contents:=True, Scenarios:=True _
           , AllowFormattingCells:=True, AllowFormattingColumns:=True, _ 
             AllowFormattingRows:=True 'şifre "a"
             Sht.EnableSelection = xlNoSelection'Seçimi engellemek için
    ElseIf Sht.Name = "Sayfa3" Then
       Sht.Protect "a", DrawingObjects:=True, Contents:=True, Scenarios:=True _
           , AllowFiltering:=True 'şifre "a"
           Sht.EnableSelection = xlNoSelection 'Seçimi engellemek için
    End If
    Next
End Sub

 

[dbicer83]

Aslında kod doğru başka sayfada çalışıyor ama mevcut kullandığım çalışma kitabında resimler sayfa bölme (Pencere/Bölmeleri çöz) onlarmı etken başka bir sorunmu var çözamadim bir türlü olmuyor. Kütüphanalerle ilgiili bir durumudur çözemedim bir türlü.

 

[dbicer83]

Şimdi tekrar boş sayfada tekrar denedim çalışıyor ama mevcut dosyada çalışmıyor. Çok ilginç sürekli güncelleyeyn saat bilgiisi var makro ile onunla ilgili olabilir mi acaba ama elle koruma yaptığım zaman kilitlemeyi yapıyor. Çok şaşırtıcı.

 

[hamitcan]

Sayfa isimleri aynı mı ?

 

[dbicer83]

Hayır farklı.

 

[hamitcan]

Kodun çalışmaması normal çünkü sayfa isimleri Sayfa1, Sayfa2, Sayfa3 olarak varsayıldı ki bu duruma, daha önceki mesajlarımın birinde değinmiştim.

 

[dbicer83]

Makro adında Sayfa1,2,3 ama excelde görünen isimleri farklı excelde görünen isimlerini yazıyorum doğru olanda bu diye düşünüyorum.

 

[hamitcan]

Eğer, kod içinden sayfa isimlerini değiştiriyorsanız bir sorun olmasa gerek.