Sayfalara Toplu Halde Koruma Koyma

[dbicer83]

Bu sayfaları koruma yaparken farklı farklı koruma uygulayabilirmiyiz.
-Kilitli hücreleri seç
-Kilidi açılmış hücreleri seç
-Hücreleri biçimle
-.......
-Otomatik filtrele
-şifreli
-şifresiz gibi koruma uygulamak istiyorum nasıl yapılabilir.
Teşekkürler.

 

[hamitcan]

Sub ProtectAllSheets()
    For Each Shts In ThisWorkbook.Worksheets
     Shts.Protect _
     Password:="123", _
     DrawingObjects:=True, _
     Contents:=True, _
     Scenarios:=True, _
     AllowFormattingCells:=True, _
     AllowFiltering:=TrueNext
    Next
End Sub

şeklinde kullanabilirsiniz.

 

[dbicer83]

Peki ayrıştırabilirmiyiz, sayfa1 şu özellikler sayfa2 ye şunlar gibi.

 

[hamitcan]

Olabilir. Herbir sayfa için vereceğiniz kriterleri belirlemelisiniz.

 

[dbicer83]

Örnek 1-2 sayfalık yapabilirmiyiz.Birde koruma seçeneklerinin hepsinin listesine nasıl ulaşabilirim.
Tşekkürler.

 

[hamitcan]

Aşağıdaki makaleyi inceleyebilirsiniz.
http://msdn.microsoft.com/en-us/library/bb179210(v=office.12).aspx

 

[dbicer83]

Örnek bir dosya ekleyebilirmiyiz.

 

[hamitcan]

Herbir sayfada ne tür kısıtlamalar yapmak istiyorsanız belirtmelisiniz. Ben size nasıl bir örnek verebilirim bilmiyorum ? Dosyanız kaç sayfa ? Hangi sayfada ne yapacaksınız ? Eğer her sayfada koruma seçenekleriniz farklı ise kod yazmanında bir anlamı olmayacak diye düşünüyorum.

 

[servetmardin]

programı tek bir sayfada yönetmek

arkadaşlar herkese iyi akşamlar diliyorum.....


elimde görsel bakımdan acemice benım kendim yaptığım 4/b sözleşmeliler maaş bordro programı var..

bunu görsel bakımdan güzel ve tek bir sayfadan yönetmek istiyorum...buton eklemek v.s

yardımcı olursanız sevinirim.....



dosya ektedir...

 

[dbicer83]

Herbir sayfada ne tür kısıtlamalar yapmak istiyorsanız belirtmelisiniz. Ben size nasıl bir örnek verebilirim bilmiyorum ? Dosyanız kaç sayfa ? Hangi sayfada ne yapacaksınız ? Eğer her sayfada koruma seçenekleriniz farklı ise kod yazmanında bir anlamı olmayacak diye düşünüyorum.

14 sayfalık bir dosya bunların isimleri verilmek kaydıyla sayfa koruması yapmak stiyorum. Ayda bir sayfa korumasını açıp sistemsel aktarımları mevcut. Geri tek buton yardımıyla istenen özelliklerin istene sayfalara korumasını sağlamak istiyorum.
Sayfa1: şifreli korunan hücreler seçilmeyecek
Sayfa2: korumalı hücreler seçilip biçimlendirme yapılabilecek
sayfa3:korumalı hücreler seçilip süz çalıştırılabilcek.
sayfa4 koruma yapılan hücreler seçilcek gibi...
devam ediyor.
Teşekkürler.

 

[hamitcan]

Diğer sayfaları da bu şekilde çoğaltabilirsiniz.

Sub Sayfayi_Koru()
    With ActiveSheet
    If .Name = "Sayfa1" Then
       .Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
       .EnableSelection = xlUnlockedCells
    ElseIf .Name = "Sayfa2" Then
       .Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
           , AllowFormattingCells:=True, AllowFormattingColumns:=True, _
             AllowFormattingRows:=True
    ElseIf .Name = "Sayfa3" Then
       .Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
           , AllowFiltering:=True
    End If
    End With
End Sub
Sub Korumayi_Kaldir()
    On Error Resume Next
    For Each Sht In ThisWorkbook.Worksheets
        Sht.Unprotect
    Next
End Sub

 

[dbicer83]

Teşekkkürler.

 

[dbicer83]

........................

 

[dbicer83]

Sayfa1 i korumaya alıyor diğerleri koruma yapmaıyor neden kaynaklı olur.
Teşekkürler.

 

[hamitcan]

Sayfa isimlerini değiştirdiyseniz, kod çalışmayacaktır.

 

[dbicer83]

Aynı ama yine de çalıştıramadım ek dosya ile keleyebilirmisiniz. Şifreli olarak.
Teşekkürler.

 

[hamitcan]

Üç sayfadan oluşan bir dosya oluşturun, isimleri de Sayfa1, Sayfa2, Sayfa3 olsun, sonra da kodu çalıştırın.

 

[dbicer83]

Üç sayfadan oluşan bir dosya oluşturun, isimleri de Sayfa1, Sayfa2, Sayfa3 olsun, sonra da kodu çalıştırın.

Sayfa1 korumaya alıyor diğerlerinde çalışmıyor

 

[hamitcan]

Önceki kodu, aktif sayfa şeklinde yapmışız. Aşağıdaki kod ise tüm sayfaları, bir seferde koruma altına alıyor.

Sub Sayfayi_Koru()
    For Each Sht In ThisWorkbook.Worksheets
    If Sht.Name = "Sayfa1" Then
       Sht.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
       Sht.EnableSelection = xlUnlockedCells
    ElseIf Sht.Name = "Sayfa2" Then
       Sht.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
           , AllowFormattingCells:=True, AllowFormattingColumns:=True, _
             AllowFormattingRows:=True
    ElseIf Sht.Name = "Sayfa3" Then
       Sht.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
           , AllowFiltering:=True
    End If
    Next
End Sub

 

[dbicer83]

Bu şekilde sayfaları artırabiliriz sanırım. Sifreli olması için ne yapmam lazım.
Teşekkürler.