- Katılım
- 17 Ekim 2017
- Mesajlar
- 110
- Excel Vers. ve Dili
- Microsoft Office 2013 Standard
- Altın Üyelik Bitiş Tarihi
- 28.04.2024
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
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