korumalı dosyada filtre

[MEVSİM]

Merhaba
Benim elimde 3000 ve üzeri verilerin olduğu tablolar var ve bunlar network üzerinden paylaşıma açık olduğundan herkes tarafından kullanılabiliyor.Ancak dosya üzerindeki değişiklikleri sadece benim yapabilmemi istiyorum ve bunun için dosyaya koruma koydum.Ancak koruma koyduğum zaman süzme sıralama gibi temel bazı fonksiyonları kullanamıyorum, bunun bir yolu var mıdır? bide excelde kişiye özel yetkilendirme diye birşey sözkonusu mu, yani mesela açılışta sicil no' yu sorucak ve benim sicilimle açılınca excelin tamamına erişim sağlanabilicek,başka birinin sicili ile açılınca sadece a sütunundaki verileri değiştirebilicek,başka birisinin sicili ile açılınca sadece b sütunundaki verileri değiştirebilicek gibi!
Mümkün olduğunca az makro olursa ve kodlar için ufak açıklamalar olursa çok minnettar kalırım,
Burdaki bütün üstadlarıma şimdiden teşekkür ederim,

 

[hamitcan]

Aşağıdaki kod filtrelemeye izin veriyor fakat kayıtları değiştirmeyi engelliyor.
Not:Bu kod zannedersem Excel'in 2000 versiyonunda çalışıyordu. Yetkilendirme ile ilgili sorularınız için sitede arama yapın, birçok örnek bulacağınızı düşünüyorum.

Private Sub CommandButton1_Click()
    ActiveSheet.EnableAutoFilter = True
    ActiveSheet.Protect "Z"
    ActiveSheet.Protect contents:=True, userInterfaceOnly:=True
End Sub

 

[MEVSİM]

Aşağıdaki kod filtrelemeye izin veriyor fakat kayıtları değiştirmeyi engelliyor.
Not:Bu kod zannedersem Excel'in 2000 versiyonunda çalışıyordu. Yetkilendirme ile ilgili sorularınız için sitede arama yapın, birçok örnek bulacağınızı düşünüyorum.

Private Sub CommandButton1_Click()
    ActiveSheet.EnableAutoFilter = True
    ActiveSheet.Protect "Z"
    ActiveSheet.Protect contents:=True, userInterfaceOnly:=True
End Sub

Sayın Hamitcan ilginiz için çok teşekkür ederim,
Gönderdiğiniz kodu inceledim ancak filtre aktif olmadı, bu kadar basit bir şeyin ecxel gibi bir programda bu şekilde kodlarla yapılması da çok ilginç geliyor bana
söylediğiniz gibi yetkilendirme ile ilgili arama yaptım ve işime yariycak çok güzel bilgiler buldum ancak şu filtre işini çözemedim

 

[hamitcan]

Bir örnek hazırladım. Umarım sizde çalışır.

 

[MEVSİM]

Bir örnek hazırladım. Umarım sizde çalışır.

dosyayı denedim ancak filtre okları görünüyor ama üzerine gelip tıklamama izin vermiyor.şifreyi Z olarak girip, filtreyi kaldırıp tekrar şifre koydum, daha sonra auto filetre yine aktif olmadı
ama yaptığınız çalışma bana yardımcı oldu verdiğiniz emek için çok teşekkür ederim

 

[hamitcan]

Kodu biraz değiştirdim. Bir de böyle dener misiniz?

Private Sub CommandButton1_Click()
    ActiveSheet.EnableAutoFilter = True
    ActiveSheet.Protect Password:="Z", contents:=True, userInterfaceOnly:=True
End Sub

Private Sub CommandButton2_Click()
    SIFRE = InputBox("ŞİFREYİ GİRİN")
    If SIFRE <> "Z" Then MsgBox "GİRDİĞİNİZ ŞİFRE GEÇERLİ DEĞİL, YENİDEN DENEYİN": Exit Sub
    ActiveSheet.Unprotect Password:=SIFRE
End Sub