Sayfa koruma makro işlevi.

[dbicer83]

Sub ACIKHESAPBOSSATIR()
Sheets("AHSP").Unprotect "QAZWSX"
Call Filtreleriptal
  Range("b8").Select
    Say = WorksheetFunction.CountA(Range("b:b"))
    Range("b" & Say + 4).Select
    ActiveCell.Select
Sheets("AHSP").Protect "QAZWSX"
End Sub

Sub Filtreleriptal()
Sheets("AHSP").Unprotect "QAZWSX"
   Selection.AutoFilter
   Range("b6").AutoFilter
   Sayfa07.ComboBox1.Value = "Tümünü Seç"
   Sayfa07.ComboBox2.Value = "Tümünü Seç"
   Sayfa07.TextBox1.Value = ""
   Sayfa07.TextBox2.Value = ""

   
   
End Sub

Yukarıda kodları verilen işlemde süzme için kullanılan tabloların tamamını iptal etmekte.Fakat bu işlem için sayfa korumasını kaldırması gerekte.Ama sayfa korumalı çalışmak istemekteyim. Dolayısıyla işlem tamamlandıktan sonra. Tekrar sayfa koruma işlemin yaptırmak istiyorum korumada ise ,
-hücreleri biçimle
-filtreyi kullan
-senaryoları düzenle aktif olacak

 

[Levent Menteşoğlu]

Yazdığınız prosedürün içine aşağıdaki kırmızı renkli satırı eklerseniz istediğinizi elde edebilirsiniz.

Sub Filtreleriptal()
Sheets("AHSP").Unprotect "QAZWSX"
   Selection.AutoFilter
   Range("b6").AutoFilter
   Sayfa07.ComboBox1.Value = "Tümünü Seç"
   Sayfa07.ComboBox2.Value = "Tümünü Seç"
   Sayfa07.TextBox1.Value = ""
   Sayfa07.TextBox2.Value = ""
 
[B][COLOR=red]Sheets("AHSP").protect "QAZWSX"[/COLOR][/B]

End Sub

 

[senolcakir]

Levent Bey o şekilde de program hata verecektir diye düşünüyorum. Prosedürü aşağıdaki şekilde düzeltmesi daha doğru olacaktır sanırım...

Sub Filtreleriptal()
Selection.AutoFilter
Range("b6").AutoFilter
Sayfa07.ComboBox1.Value = "Tümünü Seç"
Sayfa07.ComboBox2.Value = "Tümünü Seç"
Sayfa07.TextBox1.Value = ""
Sayfa07.TextBox2.Value = ""
End Sub