Korumalı Dosyada Filtre Çalıştırmak

[baydeniro]

Merhaba arkadaşlar. Site 2 gün kapalı kaldı. Sanki 2 gün zor geçti. Neyse hepimize geçmiş olsun. Benim sorum şöyle :

Sayaf koruma altında iken filtreyi kullanarak işlem yapan makro run edildiğinde bu noktada takılıyor. Koruma kaldırılınca doğal olarak makro işlevini yapıyor. Sayfa koruma altında iken makroyu çalıştırabilmenin bir yolu var mıdır ?

 

[Ferhat Pazarçevirdi]

Sayfayı Koruma altına alırken, "Sayfayı Koru" iletişim kutusunda, alttaki "Çalışma sayfası kullanıcılarının tümüne bu izinleri ver: " listesinden, Otomatik Filte Kullan'ın karşısına check işareti koyun.

(Excel'in 2k'lı versiyonları için geçerlidir)

NOT : Ayrıca şifreniz 1 değil ... Kontrol edin.

 

[baydeniro]

Sayın Ferhat Pazarçevirdi ilginiz için çok çok teşekkür ederim. Gerçekten dalgınlıkla farklı parola koymuşum, şimdi düzelttim. Tavsiyenize uygun şekilde işlem yaptım ama yine olmadı.

 

[Ferhat Pazarçevirdi]

Kodunuzu şu şekilde revize edin. Değişiklikler kırmızı ile gösterilmiştir.

Sub DATA()
    
[COLOR=red][B]    ActiveSheet.Unprotect Password:="1"[/B][/COLOR]
    
    Selection.AutoFilter Field:=3, Criteria1:="Karpuz"
    Range("A2:E10").Select
    Selection.Copy
    
[COLOR=red][B]    Application.Goto Sheets("RAPOR").Range("A2")[/B][/COLOR]
    
    ActiveSheet.Paste
    
    Range("A1").Select
    
    Application.CutCopyMode = False
    
    Sheets("DATA").Select
    
    Selection.AutoFilter Field:=3
    
    Range("A1").Select
    
[COLOR=red][B]    ActiveSheet.Protect Password:="1", AllowFiltering:=True[/B][/COLOR]
End Sub

 

[baydeniro]

Çok teşekkür ederim sayın Ferhat Pazarçevirdi. Elleriniz dert görmesin, sağlıcakla kalın.