Excel Forum

Excel Forum (http://www.excel.web.tr/index.php)
-   Diğer Excel Soruları (http://www.excel.web.tr/forumdisplay.php?f=50)
-   -   sayfayı koru hk. (http://www.excel.web.tr/showthread.php?t=167986)

bsttt 08-11-2017 16:12

sayfayı koru hk.
 
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 08-11-2017 16:42

.

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

Kod:

syf.Protect "abcd", DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFiltering:=True
.

bsttt 09-11-2017 09:25

çok teşekkürler,


Saat 14:02

Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.