şifre sorma hatası

[xp45s]

Merhaba;

Ekteki dosyayı açtıgımızda kullanıcı adı ve şifre soran bir userform açılıyor.
Kullanıcı adı: DENEME
Şifre:1234

Buradan şifre işlemlerini yaptıktan sonra karşımıza ana menü formu çıkıyor ve sayfalar arası geçiş yapıyoruz.Sayfaları kapatmamız için ana menü üzerindeki kapat butonunu kullanıyoruz.

Fakat dosyada şöyle bir sorun var;Eger şifreyi yanlış girer isek şifre hatalı diyor ve ve programı ana menü üzeinden kapatın diye bir hata yazısı geliyor.Dosyayı tekrar açtıgımız zaman direk şifre sormadan dosya zaten açık diye bir hata yazısı alıp evet diyerek dosyaya şifresiz girebiliyorum.Kısacası kullanıcı adı veya şifreyi yanlış yazdıktan sonra dosyayı bir daha açmaya çalıştıgımda şifre sormadan dosyaya girebiliyorum..

Konuyla ilgili olarak sn uzmanlarımdan ve ilgilenen arkadaşlarımdan yardım bekliyorumm..

 

[Ömer]

Merhaba,

UserForm1 deki kodları aşağıdakilerle değiştirin.

Private Sub CommandButton1_Click()
K_Adi = Array("DENEME", "ŞERİFE", "TARIK", "HATİCE", "MEHMET")
Sifre = Array("1234", "87654321", "43215678", "56781234", "87651234")
    For x = LBound(K_Adi) To UBound(K_Adi)
        If TextBox1.Text = K_Adi(x) And TextBox2.Text = Sifre(x) Then
            Unload Me
            MsgBox "Girişiniz onaylandı.", vbInformation, "ONAY"
            UserForm2.Show
        Exit Sub: End If
    Next
Unload Me
MsgBox "Hatalı giriş yaptınız.", vbCritical, "BİLGİ HATASI"
Call kapat
End Sub
 
Private Sub CommandButton2_Click()
    Call kapat
End Sub
 
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    If CloseMode <> 1 Then Cancel = True
End Sub

 

[xp45s]

sn ömer bey elinize sağlık süper çalışıyor..