Makro ile Filtre Uygulamak

[Radikal16]

Sayfa Koruma altındayken Filtrele Makro Butonuna bastığım zaman sayfa korumasını kaldırıp istediğim Hücreye Filtre uyguluyabiliyorum.
Tekrar Aynı butona bastığımda Filtreyi kaldırıp Sayfayı Korusun İstiyorum. Mümkünmüdür. Yardımcı olursanız Sevinirim. Şimdiden Teşekkür Ederim.

Sub Filtrele()
'
' Filtrele Makro
'

'
    ActiveSheet.Unprotect "123"
    Range("a4:f4").Select
    Selection.AutoFilter
    Range("B3:H3").Select
End Sub

 

[Radikal16]

Dosyanın Linkini Ekliyorum. Yardımlarınızı Bekliyorum.

https://dosyam.org/2a05/Deneme_Filtre.xlsm

 

[Korhan Ayhan]

END SUB satırının öncesine aşağıdaki satırı uygulayıp deneyiniz.

ActiveSheet.Protect "123"

 

[Radikal16]

END SUB satırının öncesine aşağıdaki satırı uygulayıp deneyiniz.

ActiveSheet.Protect "123"

Dediğiniz şekilde yaptım sayfa korumasını aç kapat yapıyor.

bnm istediğim ilk tıklamada korumayı açıp a4 f4 hücrelerine filtre uygulamak işlem yapmak işim bitince. ikinci tıklamaylada filtreyi kaldırıp sayfayı koruma altına almasını istiyorum.

Teşekkür Ederim.

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit

Sub Filtrele()
    With ActiveSheet
    If .ProtectContents Then
        .Unprotect "123"
        If Not .AutoFilterMode Then .Range("A4:F4").AutoFilter
    Else
        If .AutoFilterMode Then .Range("A4:F4").AutoFilter
        .Protect "123"
    End If
    End With
End Sub

 

[Radikal16]

Tam istediğim gibi oldu. Çok Teşekkür Ederim

Deneyiniz.

Option Explicit

Sub Filtrele()
    With ActiveSheet
    If .ProtectContents Then
        .Unprotect "123"
        If Not .AutoFilterMode Then .Range("A4:F4").AutoFilter
    Else
        If .AutoFilterMode Then .Range("A4:F4").AutoFilter
        .Protect "123"
    End If
    End With
End Sub