sayfayı koru hk.

[bsttt]

Herkese Merhabalar, excel çalışma kitabımda aşağıdaki kodla sayfa koruması yaptım fakat otomatik filtre kısmı da kilitleniyor, otomatik filtrenin açık olması için koda ne yazmam gerekiyor, yardımcı olursanız çok sevinirim. Teşekkürler.


Sub Sayfa_Koru()
For Each syf In Worksheets
syf.Protect "abcd", DrawingObjects:=True, Contents:=True, Scenarios:=True
syf.EnableSelection = xlNoSelection
Next
MsgBox "Kilitlendi.", vbInformation, "Bilgi!"
End Sub
Sub Koruma_Ac()
Sifre = Application.InputBox("Şifreyi Giriniz", "Hoşgeldiniz")
If Sifre = False Then Exit Sub
If Sifre = "abcd" Then
For Each syf In Worksheets
syf.Unprotect Sifre
Next
Else:
MsgBox "Yanlış Şifre", vbCritical, "Uyarı!"
End If
End Sub

 

[Emir Hüseyin Çoban]

.

Kırmızı ile belirttiğim kısmı ilave edin.

syf.Protect "abcd", DrawingObjects:=True, Contents:=True, Scenarios:=True[B][COLOR="DarkRed"], AllowFiltering:=True[/COLOR][/B]

.

 

[bsttt]

çok teşekkürler,