kod çalıştırmada sayfa koruma sorunu

[malinois]

visual basicde oluşturulan buton ile 2 filtreleme işlemini tek butonla halletmiş oluyorum fakat sayfa koruması koyduğumda bu butonda, ne yaptıysam koruma altına alındığından işlev görmüyor, bununla ilgili bir yardımınız olabilir mi acaba? Ekte örnek bir dosya mevcut. Buton işlev açısından çalışanın işini çabuk bitirmesi için çok hzı kazandırdığından maalsef koruma durumundan vazgeçmek zorunda kalıyorum, alternatif bir yol gösterebilir misiniz?

 

[Ömer]

Merhaba,

Örnek olarak yazıyorum siz kendi dosyanıza uyarlarsınız.

Sub Deneme()
        kodlar
End Sub

Bu şekilde deneme adında bir makronuz olsun.

Kodu aşağıdaki gibi yazarsanız istediğiniz olcaktır. "a" lar sayfa koruma şifresidir. Kendinizinkiyle değiştirirsiniz..

Sub Deneme()
    [COLOR=red]ActiveSheet.Unprotect "[COLOR=blue]a[/COLOR]"
[/COLOR]        kodlar
    [COLOR=red]ActiveSheet.Protect "[COLOR=blue]a[/COLOR]"
[/COLOR]End Sub

.

 

[malinois]

Çok teşekkür ederim Ömer Bey çok makbule geçti.

 

[manisali50]

Hocam çok teşekkür ederim..Tam istediğim gibi oldu