kod da sayfa kilitleme hatası

[esad45]

aşağıdaki gibi makrom var ama sayfayı koruma şifresi koyunca bu makro çalışmıyor şifreyi koyarken herşeyi açık bırakıyorum oysa

makrolarım şunlar;

Sub YENİ()
'
' YENİ Makro
'

'
Rows("2:2").Select
Selection.AutoFilter
Selection.AutoFilter
Range("A2").Select
ActiveSheet.Range("$A$2:$K$5000").AutoFilter field:=1, Criteria1:="="
Range("A2").Select
End Sub


Sub tümü()
'
' tümü Makro
'

'
Rows("2:2").Select
Selection.AutoFilter
Selection.AutoFilter
Range("A2").Select
End Sub

 

[asi_kral]

Merhaba
Kodun çalışması için sayfada koruma olmaması gerekiyor. Bunun için kod çalıştığında önce sayfa korumasını kaldırması gerekiyor sonra kodun işlevini tamamlaması gerekiyor. Kod işlevini tamamladıktan sonra tekrardan koruma yapması gerek.
Dilerseniz bir örnek dosya ekleyin yardımcı olmaya çalışalım.

 

[esad45]

teşekkür ettim hallettim malesef yine aynı hatayı yaptık önce forumda aratma yapmalıydım

 

[asi_kral]

teşekkür ettim hallettim malesef yine aynı hatayı yaptık önce forumda aratma yapmalıydım

Kolay Gelsin.