Korumalı sayfada filtrelemeyi çalıştırmak

[ASLAN7410]

Merhaba herkese hayırlı günler.

Ekte gönderdiğim örnek dosyam ortak ağda bulunduğundan herkes bu sayfadan fayladalanmaktadır, sayfada değişiklik yapılmaması için sayfanın yüzünü normalde şifreli koruma yapmaktayım. Bu sayfa yüzü korumalı sayfada filtreleme yapmak istediğimde filtreler çalışmıyor. Sayfa korumasını kaldırmadan filtreleri nasıl çalıştırırım.

Yardım edecek arkadaşlara şimdiden teşekkür ederim.

 

[feridici_genc]

Günaydın,
Şifre koyarken "Otomatik filtre kullan" seçeneğini işaretleyin. sonra kilitleyin.

 

[ASLAN7410]

Merhaba sayın feridici_genc ilginize teşekkür ediyorum, bunu nasıl yapmalıyım, otomatik filtre dediğinizi bulamadım maalesef.

 

[feridici_genc]

2007 Excel de nerede olduğunu bilmiyorum ama şöyle tarif edeyim.
Gözden geçir sekmesinde "sayfayı koru" düğmesi olmalı. Bu düğmeye tıkladığınızda aşağıda kullanılmasına izin verilen seçenekler var. O seçeneklerden birisi "Otomatik filtre kullan" olmalı.

 

[Emir Hüseyin Çoban]

. . .

. . .

 

[feridici_genc]

Sanırım Araçlar menüsünde.

 

[ASLAN7410]

Sayın feridici_genc ve Hüseyin ÇOBAN Bey ilginize çok teşekkür ederim.

Aşağıdaki kod sayfa ilk açılırken şifreli olarak korumaya geçiriyor, sizin dediklerinizi bu koda nasıl uygulamam gerekir.

Sub SayfayıKoru1()
Cells.Activate
    Locked = True
    FormulaHidden = True
    Range("a1").Select
Sheets("Sayfa1").Protect Password:="456"
End Sub

 

[Emir Hüseyin Çoban]

. . .

 Sheets("Sayfa1").Protect Password:="456", AllowFiltering:=True

. .

 

[ASLAN7410]

Çok işime yaradı çok teşekkür ediyorum Hüseyin Bey hayırlı cumalar.

 

[ozdemiad]

tam kodu gonderebillirmisiniz ? Bendeki kod asagidaki gibi. o sifreli bolumu nereye ekleyecegim???
Sub ENG()
'
' ENG Macro
'

'
ActiveSheet.Range("$C$14:$C$93").AutoFilter Field:=1, Criteria1:="ING"
End Sub

 

[ozdemiad]

Yada tam iki formul birden de asagidaki gibi,
Sub NED()
'
' NED Macro
'

'
ActiveSheet.Range("$C$14:$C$93").AutoFilter Field:=1, Criteria1:="NL"
End Sub
Sub ENG()
'
' ENG Macro
'

'
ActiveSheet.Range("$C$14:$C$93").AutoFilter Field:=1, Criteria1:="ING"
End Sub

 

[Korhan Ayhan]

Örnek;

Sub ENG()
'
' ENG Macro
'

'
ActiveSheet.Unprotect "123"
ActiveSheet.Range("$C$14:$C$93").AutoFilter Field:=1, Criteria1:="ING"
ActiveSheet.Protect "123"
End Sub

 

[ozdemiad]

Örnek;

Sub ENG()
'
' ENG Macro
'

'
ActiveSheet.Unprotect "123"
ActiveSheet.Range("$C$14:$C$93").AutoFilter Field:=1, Criteria1:="ING"
ActiveSheet.Protect "123"
End Sub

Örnek;

Sub ENG()
'
' ENG Macro
'

'
ActiveSheet.Unprotect "123"
ActiveSheet.Range("$C$14:$C$93").AutoFilter Field:=1, Criteria1:="ING"
ActiveSheet.Protect "123"
End Sub

Bu formulde ilk hangi dugmeye basarsam (ornek ING) ing leri getiriyor ama sayfayi tamamen kilitliyor. Yani tekrar NL sectirmiyor

 

[Korhan Ayhan]

Diğer buton içinde aynı şekilde kodu düzenlediniz mi?

 

[ozdemiad]

Bu formulde ilk hangi dugmeye basarsam (ornek ING) ing leri getiriyor ama sayfayi tamamen kilitliyor. Yani tekrar NL sectirmiyor

Cook tesekkur edrim halletim. formul dogru yani.

 

[mekist]

Merhba
Sayfada grafikler ve dilimleyici var, dilimleyici kullanabilsin diye grafiklerin olduğu grubu koruma dışı bırakıyorum

Grafikleri koruma yapıp dilimleyicileri koruma yapmayan bir yöntem var mıdır