Makro ile sekme şifreleme hk.

[hakanaslan78]

Merhaba Arkadaşlar,

Yardımlarınız için şimdiden teşekkür ederim

Aşağıdaki kodda hata alıyorum. Nasıl bir düzenleme yapmam gerek.

Yapmak istediğim,

1- EĞER ŞİFRE DOĞRU İSE - CH HESAP TAKİP SEKMESİNİ GÖSTERSİN

2- CH HESAP TAKİP SEKMESİ PARO İLE KORUNUYORSA SEKMENİN KORUMASINI KALDIRSIN - PAROLA 12345

3- CH HESAP SEKMESİNDE BELİRLEDİĞİM FİLİTREYİ UYGULASIN

4- SAYFAYI TEKRARDAN KORUSUN - ŞİFRE 12345


Sub Sayfa()

Dim sifre As Variant

sifre = Application.InputBox("Şifre Giriniz", "Şifre Giriş")


If sifre = False Then Exit Sub

'SUAT M.

If sifre = 1818 Then
MsgBox "Şifre doğru.", , ""
Sheets("CH HESAP TAKİP").Visible = True
Sheets("CH HESAP TAKİP").Select
ActiveSheet.Unprotect Password:=12345, AllowSorting:=True, AllowFiltering:=True

Sheets("CH HESAP TAKİP").Select
ActiveSheet.ListObjects("Tablo3").Range.AutoFilter Field:=1, Criteria1:= _
"SUAT M."

ElseIf sifre = "" Then
MsgBox "Şifre girmediniz.", , ""

End If
End Sub

Saygılarımla,

Hakan ASLAN