Girişte şifre sorma

[megadeth61]

merhaba bir sorum olacak.
excel 2003 kullanıyorum. is geregi sifre koymak zorunda kaliyorum. birisinin sifresini unuttum. bunu nasil acarim. acil yardiminiza ihtiyacim var. tskler

Sn. Emre ŞENER,

Bu sorunuzun cevabını bu siteden alabileceğinizi zannetmiyorum

 

[megadeth61]

Merhaba,
Aşağıdaki kodu deneyin.

Private Sub CommandButton1_Click()
K_Adi = "ahmet"
Sifre = "ahmet"
For x = LBound(K_Adi) To UBound(K_Adi)
If TextBox1.Text = K_Adi And TextBox2.Text = Sifre Then
Unload Me
MsgBox "Girişiniz onaylandı.", vbInformation, "ONAY"
Exit Sub: End If
Next
Unload Me
MsgBox "Hatalı giriş yaptınız.", vbCritical, "BİLGİ HATASI"
ThisWorkbook.Close False
End Sub

Sn. leumruk

Verdiğiniz kodu yazdım. Teşekkür ederim. benim sorunum şu noktadaymış. Bne verdiğiniz kodları userformda değiştirmediğim için giriş hatalı diyordu şimdi sorunu hallettim. İlginiz için çok teşekkür ederim.

 

[efsane94]

Merhabalar,
Daha acemiyim vb6 kullanıyorum Yapmak istediğim;Önce kullanıcı adı ve şifre sorulsun, onaylandıktan sonra hoşgeldin mesajı ve daha sonra çalışma kitabından çıkmak isterken sorgulama. yardım ederseniz sevinirim

 

[xp45s]

http://www.excel.web.tr/forumdisplay.php?f=129

linki inceleyin lütfen..

 

[fatih14531983]

Leumruk teşekkür ederim

 

[mkonyalioglu]

TŞK

Valla bende bu makro olayına yeni başladım bu şifre işi çok hoşuma gitti tşk ederim.

 

[jakamen06]

s.a arkadaşlar excele şifre koyacağım fakat açılışta sormayacak değişim yaparkensoracak

 

[trmusic]

Merhaba;

Uygulamayı kendi uygulamama uyarladığımda Run-time error (80020005) hatası alıyorum. Tür uyuşmazlığı diyor. Kullanıcı adı 5 haneli rakam şifre 4 haneli rakamdan oluşuyor. Nasıl çözebilirim?