Makro Sayfa koruma hk.

[hakanaslan78]

Merhaba Arkadaşlar,

Makro kullanarak toplu sayfa koruması yaptığım aşağıdaki kodu revize ederek otomatik filitre ve sıralama özelliğini aktif etmek istiyorum. Toplu şifreleme yaptığımda bu özellikler kapalı olarak geliyor. Bu konuda yardımcı olabilirseniz çok memnun olurum.

Option Explicit

Sub Sayfalari_Koru()
Dim Sayfa As Worksheet

For Each Sayfa In Worksheets
Sayfa.Protect "12345"
Next

MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub


Sub Koruma_Kaldir()
Dim Parola As Variant, Sayfa As Worksheet

Parola = InputBox("Lütfen sayfa koruma şifresini giriniz!", "ŞİFRE GİRİŞİ")

If Parola = "" Or Parola = False Then
MsgBox "İşleminiz iptal edilmiştir!", vbExclamation
Exit Sub
End If

If Parola <> 12345 Then
MsgBox "Hatalı şifre girişi yaptınız!" & vbCr & "Lütfen daha sonra tekrar deneyiniz.", vbCritical
Exit Sub
Else
For Each Sayfa In Worksheets
Sayfa.Unprotect Parola
Next

MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End If
End Sub

Saygılarımla,

 

[Korhan Ayhan]

Merhaba,

Korumalı sayfada SIRALAMA özelliğini kullanabilmeniz için aralıktaki hücrelerin kilidinin açık olması gerekiyor.

Aşağıdaki kod ile filtre ve sıralama özelliğini aktif edebilirsiniz. Ama dediğim gibi hücreler kilitli ise sıralama işleminde hata alacaksınız. Bunun için ayrı bir makro ile hücrelerin kilidini açarak işlem yapabilirsiniz.

Option Explicit

Sub Sayfalari_Koru()
    Dim Sayfa As Worksheet
    
    For Each Sayfa In Worksheets
        Sayfa.Protect Password:=12345, AllowSorting:=True, AllowFiltering:=True
    Next
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[hakanaslan78]

Merhaba,

Korumalı sayfada SIRALAMA özelliğini kullanabilmeniz için aralıktaki hücrelerin kilidinin açık olması gerekiyor.

Aşağıdaki kod ile filtre ve sıralama özelliğini aktif edebilirsiniz. Ama dediğim gibi hücreler kilitli ise sıralama işleminde hata alacaksınız. Bunun için ayrı bir makro ile hücrelerin kilidini açarak işlem yapabilirsiniz.

Option Explicit

Sub Sayfalari_Koru()
    Dim Sayfa As Worksheet
   
    For Each Sayfa In Worksheets
        Sayfa.Protect Password:=12345, AllowSorting:=True, AllowFiltering:=True
    Next
   
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

Korhan Bey, Ellerinize sağlık işimi görecek bu şekilde.

Saygılarımla,