Çözüldü Butona Verilen Şifrenin Değiştirilmesi Hakkında.

[yesimgurol]

Merhabalar,
Saygıdeğer üstadlarımızın ve forumdaki örnek dosyalardan faydalanarak hazırlamaya çalıştığım dosyamda bulunan ANAMENU formundaki butonlara şifre koyabildim.
Şifre koymuş olduğum kod aşağıdaki gibi;

Private Sub CommandButton1_Click()
  sifre = InputBox("Şifre Giriniz", "Şifre Giriş")
If sifre = 1234 Then

Unload ANAMENU
If Worksheets("DepoGırıs").Visible = False Then
    Worksheets("DepoGırıs").Visible = True
    End If
Sheets("DepoGırıs").Select
DENEME.Show

Else
        MsgBox "Girilen şifre yanlış!.."
            End If
End Sub

VBA kod sayfasına da şifre koyabiliyorum. Buraya kadar herşey çok güzel ilerlerken , butonlara koymuş olduğum şifreyi kod sayfasına girmeden değiştirmek için ne yapılabilir:-(

 

[Trilenium]

ana menu de gözükmeyen bir sütunun satırına şifreyi yazıp okutun .. değiştirmek içinde oraya kayddedin

 

[yesimgurol]

ana menu de gözükmeyen bir sütunun satırına şifreyi yazıp okutun .. değiştirmek içinde oraya kayddedin

Sayın Trilenium,
Öncelikle ilginiz ve öneriniz için teşekkür ederim. Söylemiş olduğunuz öneri için sanırım yukarıda yer alan kod içerisindeki

If sifre = 1234 Then

Bu kısmı değiştirmem gerekecek bu doğrultuda sayfa adını yazıp denemeye çalıştım ama başaramadım. Mesela öneriniz doğrultusunda AYAR sayfasında E3 hücre değerini şifre olarak belirlemek istesem. Nasıl revize edilmesi gerekecek.

 

[Erkan Akayay]

If sifre = Sheets("Sayfaadı").Range("E3").Value Then

 

[yesimgurol]

If sifre = Sheets("Sayfaadı").Range("E3").Value Then

Erkan bey merhaba,
Cevabınız için teşekkür ederim. Yalnız kelime girdiğimde hedef hücreye şifreyi kabul ediyor gayet güzel numara girince yanlış şifre diyor:-(

 

[Erkan Akayay]

Şifreyi inputbox ile alıyorsanız, inputbox herşeyi metin görür.
sifre=CLng(InputBox("sifre giriniz"))
If sifre = Sheets("Sayfaadı").Range("E3").Value) Then yaparsanız inputboxdaki sayı kabul eder.
Metin girmek isterseniz hata verir.
İkisi için kodla kontrol lazım.
En basiti E3 e sayı girerken başına tek tırnak girin. '1234 gibi.

 

[yesimgurol]

Şifreyi inputbox ile alıyorsanız, inputbox herşeyi metin görür.
sifre=CLng(InputBox("sifre giriniz"))
If sifre = Sheets("Sayfaadı").Range("E3").Value) Then yaparsanız inputboxdaki sayı kabul eder.
Metin girmek isterseniz hata verir.
İkisi için kodla kontrol lazım.
En basiti E3 e sayı girerken başına tek tırnak girin. '1234 gibi.

Tamamdır Erkan bey, teşekkür ederim. Saygılarımla.