Şifreli Giriş

Katılım
16 Eylül 2006
Mesajlar
72
Excel Vers. ve Dili
2010 TÜRKÇE
Merhaba üstadlar..
Benim bir kaç sorum olacak.
Hazırladığım giriş formuna kullanıcı atama ve giriş için label tıklayınca program tamamen aktif olsun ve anasayfa forumu açılsın.
Eğer şifre yanlış girerse sayfaya girilemesin.
Ayrıca hazırladığım esgal forumunu A4 kağıdına yazdıramıyorum site örnek buldum ama olmadı.
Yardımlarınız için şimdiden teşekkürler.
Örnek sayfa ektedir.

http://rapidshare.com/files/214625749/HAVUZ_PROG..zip.html
 
Katılım
28 Nisan 2005
Mesajlar
252
Excel Vers. ve Dili
Excel 2010 Türkçe
Merhaba

Basit bir çözüm ama geliştirebilirsin. Aşağıdaki kodu "giriş" userformunun kod bölümüne ilave edin.

Ayrıca Textbox2'nin özellikler bölümündeki "PasswordChar" satırına "*" işareti koyunuz.

Kod:
Private Sub Label2_Click()
If TextBox1 = "user" And TextBox2 = "1234" Then
    anasayfa.Show
    Unload giris
Else
    MsgBox "Kullanıcı adı veya parolası hatalı.", vbExclamation, "UYARI"
End If
End Sub
Not : Kullanıcı adınız : user
şifreniz : 1234
 
Üst