şifreli buton kod hatası

[zulfuernek]

On Error Resume Next
sifre = InputBox("Şifre Giriniz", "Şifre Giriş")
If sifre = 2580 Then
UserForm1.Hide ' EXCEL DOSYASI GİZLİ İSE AKTİF EDEREK EXCELE DÖNER
Application.Visible = True ' EXCEL DOSYASI GİZLİ İSE AKTİF EDEREK EXCELE DÖNER
Unload Me
Else
MsgBox "Şifreniz Doğru Değildir"
Exit Sub
End If


yukarıdaki şifrede kırmızı alan hata veriyor. sebebi nedir?

 

[Necdet]

Merhaba,

Ben denedim hata vermedi, kontrol de etmedi.
Hata veriyor demekle olmaz, hatanın ne olduğunu da yazın ki yardımcı olacak arkadaşlar üzerinde düşünsünler.

Not : Hata vermezse bile if sifre = 2580 komutu çalışmaz çünkü inputbox ile metin bilgisi alıyorsunuz.

 

[Orion1]

Şifre değişkeninini sayısal olarak tanıttıysanız,string bir değer girerseniz hata verir.

 

[zulfuernek]

hocam hata kodu felan yok. direk olarak userform kod sayfasini aciyor ve sifre yazan kismi sari gosteriyor

 

[zulfuernek]

hocam yok o butonu tiklayinca direk olarak userform kodlama sayfasini aciyor ve sifre yazan alani sari punto isaretliyor

 

[ÖmerBey]

Merhaba,
Userformu F8 ile adımlayarak açıyor olabilir misiniz?

 

[zulfuernek]

yok omer hocam. isin tesadufi tarafi ayni kodlama diger butun useformlarimda nor.al olarak calisiyor

 

[zulfuernek]

acaba soyle biseymi var. ayni kisaltma ile yani sifre yazisiyla eslesen baska bir kisaltma daha var diyemi bunu yapiyor

 

[acar6783]

form üzerinde "sifre" adında bir nesne olabilir mi?

 

[zulfuernek]

benimde aklima o geldi. suan bakma sansim yok artik yarin ona bakicam. cunku cakisan verilerde genelde ayni hatayi veriyor