Sifre

Katılım
14 Nisan 2006
Mesajlar
71
Merhaba,

Sifre = InputBox("Sifre gerekiyor", _
"Kisi", "Sifreyi yaziniz.")

If Sifre = "8907" Then
MsgBox "Sifre dogrulandi", vbInformation, "Sifre Dogru"

Else
MsgBox "Yanlis sifre girdiniz." & Chr(13) & _
"Kod çalismasi iptal edildi", vbCritical, "Yanlis sifre"

Bu kodda sifreyi sormak icin ekran geliyor fakat sifre kismina hicbirsey yazilmadan OK tusuna basilirsa veya bisey yazilsa dahi Cancel tusuna basilirsa hata veriyor. Bu iki durum nasil onlenebilir?

Tesekkurler
 

Levent Menteşoğlu

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,057
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
Aşağıdaki mavi renkli satırı kodlarınıza ilave edin.

[vb:1:85423441dc]Sifre = InputBox("Sifre gerekiyor", _
"Kisi", "Sifreyi yaziniz.")
if sifre="" then exit sub
If Sifre = "8907" Then
MsgBox "Sifre dogrulandi", vbInformation, "Sifre Dogru"

Else
MsgBox "Yanlis sifre girdiniz." & Chr(13) & _
"Kod çalismasi iptal edildi", vbCritical, "Yanlis sifre"
[/vb:1:85423441dc]
 
Katılım
14 Nisan 2006
Mesajlar
71
leventm' Alıntı:
Aşağıdaki mavi renkli satırı kodlarınıza ilave edin.

[vb:1:ee531157b7]Sifre = InputBox("Sifre gerekiyor", _
"Kisi", "Sifreyi yaziniz.")
if sifre="" then exit sub
If Sifre = "8907" Then
MsgBox "Sifre dogrulandi", vbInformation, "Sifre Dogru"

Else
MsgBox "Yanlis sifre girdiniz." & Chr(13) & _
"Kod çalismasi iptal edildi", vbCritical, "Yanlis sifre"
[/vb:1:ee531157b7]
ama cacel butonu gene sorun yaratıyor.
 

AS3434

Özel Üye
Katılım
13 Ocak 2005
Mesajlar
1,820
Excel Vers. ve Dili
M.Office/Excel 2007 Türkçe
Sn etobus
Sn leventm'in gönderdiği kodlarda
if sifre="" Then Exit sub
Kırmızı yeri cancel olarak değiştirin.
 
Üst