sifre değisimi

[ertan7]

Merhaba

Bir userform'daki şifreyi her an sayfadan değiştirebilmek mümkünmüdür?

Aşağıdaki kodda şifre 555 ise userform genişliyor ve istenilen kısım açılıyor.Ben bu şifreyi herhangi bir sayfada (örnek:sayfa1) herhangi bir hücre ile ilişkilendirmek istiyorum,yani diyelimki A2 hücresi olsun. A2 hücresinin değerini değiştirdiğimde şifrede değişsin.
Umarım anlatabilmişimdir.

Kod aşağıdadır

Tüm forum sahibi ve üyelerine teşekkürler

İyi çalışmalar

Sub CommandButton1_Click()
cevap = InputBox("Lütfen şifrenizi giriniz?", "", "Buraya şifrenizi yazınız")
If cevap = "555" Then 'Buraya 555 yerine a2.value diyorum ama olmuyor.)
UserForm1.Width = 459
Else
MsgBox "YANLIÞ ÞİFRE...", vbInformation, ""
End If
End Sub

 

[cako]

"555" olan satırı
worksheets("şifrenin olduğu sayfa adı").Range("şifrenin olduğu hücre adresi") olarak değiştirin.

 

[ertan7]

Merhaba

Dediğiniz gibi yaptım ama olmadı.Aşağıdaki şekilde yazdım ama kabul etmiyor.

If cevap = Worksheets("sayfa1").Range("a2") Then


Yinede ilginiz için teşekkürler

 

[Haluk]

[vb:1:c68105c67f]....
...
If cevap = Worksheets("sayfa1").Range("a2").Text Then
....
...[/vb:1:c68105c67f]

 

[cako]

Sub CommandButton1_Click()
Dim cevap As String
cevap = InputBox("Lütfen şifrenizi giriniz?", "", "Buraya şifrenizi yazınız")
If cevap = [a2] Then 
UserForm1.Width = 459
Else
MsgBox "YANLIÞ ÞİFRE...", vbInformation, ""
End If
End Sub

Bir de böyle deneyin. (cevap değişkeninin tanımlanmasını istiyor)

 

[tevfikseremet]

inputbox string deger ürettiği için cevap değişkenini sayıya çevirerek te işlemi yapabilirsiniz. Sayın raider e saygısızlık olmaz ise .....


If CInt(cevap) = Sheets("Sayfa1").Range("a2").Value Then

 

[Haluk]

Sayın raider e saygısızlık olmaz ise .....

Rica ederim, hiç olur mu....

 

[danersin]

@tevfiksermet, Hücredeki Þifre stringde olabilir numeric'te her durumda string olarak üretmek daha doğru değilmi?

 

[cako]

Sn reider,

Ben sizin öneriizi denedim ama yine aynı hatayı verdi.
Acaba bahsettiğim cevap değişkeninin tanımlanmasınamı ihtiyaç var yoksa ben mi bir yerde yanılıyorum.

 

[tevfikseremet]

evet sayın danersin string üretmek kesinlikle daha doğru... uyarınıza teşekkürler ..

 

[danersin]

@cako,
@raider'ın yazdığı ile sizin yazdığınız arasında tek fark
sizin kodunuz doğru sayfadan doğru şifreyi okuması için sayfa belirtilmemiş, sn.raider sayfayı belirtmiş. Onun dışında sorunsuz çalışır ikiside, eğer kodlarda değişken tanımlanması gerekiyorsa evet dim cevap as string şeklinde tanımlamak gerekir.

 

[Haluk]

Acaba bahsettiğim cevap değişkeninin tanımlanmasınamı ihtiyaç var

Range sınıfının .Text özelliğini kullandığımızda bir sorun olmaması gerekir.... Eğer sizde böyle olmuyorsa, ilginç bir durum.

 

[birol_mumcu]

syn raider ;
hoş geldin, :hey: :arkadas:

 

[Haluk]

syn raider ;
hoş geldin,

Hoş bulduk, teşekkür ederim Birol bey.

 

[cako]

Merhaba,
Biraz uğraştım. Sorun kod sayfasındaki ilk satır olan aşağıdaki satırı kaldırarak çözüldü.

Option Explicit

Bir de InputBox penceresinde Cancel tuşu tıklanırsa kodlar hata vermekteydi. Bunun için de şifre değişkenine ön değer tanımladım. En doğrusu bu heralde.

Private Sub CommandButton1_Click()
cevap = "Buraya şifrenizi yazınız"
cevap = InputBox("Lütfen şifrenizi giriniz?", "", "Buraya şifrenizi yazınız")
If cevap = Worksheets("sayfa1").Range("a2").Text Then
UserForm1.Width = 459
Else
MsgBox "YANLIÞ ÞİFRE...", vbInformation, ""
End If
End Sub

 

[ertan7]

Tüm arkadaşlara çok teşekkürler

Problemim halloldu.

İyi çalışmalar

 

[Haluk]

Bir de InputBox penceresinde Cancel tuşu tıklanırsa kodlar hata vermekteydi. Bunun için de şifre değişkenine ön değer tanımladım. En doğrusu bu heralde.

Ben o kadar kesin konuşamayacağım ama, bana göre aşağıdaki kod biraz daha doğru... :mrgreen:

[vb:1:8e30bb23dc]Private Sub CommandButton1_Click()
Dim MyTitle As String, DefaultInput As String
Dim cevap As Variant
Dim MyQ As VbMsgBoxResult
MyTitle = "Lütfen şifrenizi giriniz?"
DefaultInput = "Buraya şifrenizi yazınız"
ResumeSub:
cevap = InputBox(MyTitle, "", DefaultInput)
If Not cevap = Empty Then
If cevap = DefaultInput Then
MyQ = MsgBox("Hmmm... şifreyi girmeniz gerekirdi !!!" _
& vbCrLf & "Tekrar denemek istermisiniz ?", vbYesNo)
If MyQ = vbYes Then GoTo ResumeSub:
ElseIf cevap = Worksheets("sayfa1").Range("a2").Text Then
UserForm1.Width = 459
Else
MsgBox "YANLIÞ ÞİFRE...", vbInformation, ""
End If
Else
MsgBox "Þifrenizi girmediniz..."
End If
End Sub
[/vb:1:8e30bb23dc]