Girişte şifre sorma

[leumruk]

şifre kısmında yazdıgımız yazı ***** şeklinde görülebilirmi.

9 nolu mesajdaki dosyayı isteğinize göre düzenledim.

 

[xp45s]

teşekkür ederim sn leumruk hocam.. elinize saglık SON Bİ SORUM OLUCAK(biliyorum konu hakkında sizi o kadar soru yagmuruna tuttum)
bu degişikligi nası yaptınız iki sayfanın kodlarıda aynı bi degişiklik yok rica etsem açıklıyabilirmisiniz.

 

[leumruk]

teşekkür ederim sn leumruk hocam.. elinize saglık

Rica ederim. İyi geceler...

 

[xp45s]

SON Bİ SORUM OLUCAK(biliyorum konu hakkında sizi o kadar soru yagmuruna tuttum)
bu degişikligi nası yaptınız iki sayfanın kodlarıda aynı bi degişiklik yok rica etsem açıklıyabilirmisiniz.

--------------------------------------------------------------------------------

 

[leumruk]

SON Bİ SORUM OLUCAK(biliyorum konu hakkında sizi o kadar soru yagmuruna tuttum)
bu degişikligi nası yaptınız iki sayfanın kodlarıda aynı bi degişiklik yok rica etsem açıklıyabilirmisiniz.

--------------------------------------------------------------------------------

VisualBasic Düzenleyicisini açıp, ilgili userform üzerinden şifre girilen tektboxu seçin. Ardından Properties Window seçeneğini tıklayın. Açılan pencereden PasswordChar'ı bulun ve yanındaki haneye "*" işaretini ekleyin.

 

[xp45s]

teşekkür ederimm.....ayrıca sabrınızdan dolayıda teşekkürlerr iyi geceler..

 

[leumruk]

teşekkür ederimm.....ayrıca sabrınızdan dolayıda teşekkürlerr iyi geceler..

İyi geceler. Rica ederim. Benim için bir sorun yok. Mesleğim öğretmenlik olduğundan sorulara alışkınım...

 

[mustafaine1]

İyi geceler. Rica ederim. Benim için bir sorun yok. Mesleğim öğretmenlik olduğundan sorulara alışkınım...

Yalniz alaniniz bayagi farklilasmis hocam kutlarim..

 

[leumruk]

Yalniz alaniniz bayagi farklilasmis hocam kutlarim..

Hoby diyelim. Değişik konularda bilgi sahibi olmak emin olun çok fayda sağlıyor. Her şey bir soruyla başladı. Ve şimdi halimiz ortada. Bağımlılık yapıyor kerata...

 

[mustafaine1]

Haklisiniz adas bende bilgi islem mezunuyum fakat finans yapiyorum ama fark suki finans benim hiobim degil, saygilar..

 

[megadeth61]

...

Merhabalar,

Ben de kendim için uyarlamaya çalıştım ama küçük bir sorunla karşılaştım.

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.

Kırmızı ile yazılı yerde hata veriyor.

Örnek dosyayı yükleyemiyorum.2007 kullanmaya yeni başladım. kaydederken makro içeren dosya olarak kaydet diyor. Kaydettiği formatı da site kabul etmiyor.(.xlsm) İlginiz için şimdiden teşekkürler.


Kullandığım kodlar

Private Sub Workbook_Open()
UserForm1.Show
End Sub

Private Sub CommandButton1_Click()
K_Adi = Array("ahmet")
Sifre = Array("ahmet")
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"
Exit Sub: End If
Next
Unload Me
MsgBox "Hatalı giriş yaptınız.", vbCritical, "BİLGİ HATASI"
ThisWorkbook.Close False
End Sub

[COLOR="Red"]Private Sub Workbook_Open()[/COLOR]
 'Space(6) ifadesi kelimeler arasına eşit boşluk vermek için kullanılmaktadır.
    'vbCrLf ifadesi boş satır eklemek için kullanılmaktadır.
    
    SATIR_1 = "    Hoşgeldin!"
    MsgBox SATIR_1 & vbCrLf & vbCrLf & _
    "Soner ATAMAN", vbInformation, "Banka Hesap Bilgileri"
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If MsgBox("Çıkmak istediğinizden emin misiniz ? :)", vbInformation + vbYesNo) = vbNo Then
Cancel = True
Exit Sub
End If
End Sub

 

[megadeth61]

Yardımcı olabilecek birileri var mı acaba?

 

[leumruk]

Yardımcı olabilecek birileri var mı acaba?

WorkbookOpen' ı iki defa açmışsınız ondan hata veriyor.

Private Sub Workbook_Open()
UserForm1.Show
End Sub

Bunu komple silin.

UserForm1.Show

satırını diğer Workbook_Open'ın uygun bir yerine ekleyin.

 

[mustafaine1]

Yardımcı olabilecek birileri var mı acaba?

Guzel nick

 

[megadeth61]

WorkbookOpen' ı iki defa açmışsınız ondan hata veriyor.

Private Sub Workbook_Open()
UserForm1.Show
End Sub

Bunu komple silin.

UserForm1.Show

satırını diğer Workbook_Open'ın uygun bir yerine ekleyin.

Çok teşekkür ederim. Hata sorunu çözüldü ama ne yazık ki kullanıcı adı ve şifre girdikten onra hep hatalı giriş diyor ! Doğru yazmama rağmen. Nedenini anlamadım. Dediğim sebepten dolayı da dosyayı ekleyemiyorum ki

 

[megadeth61]

Guzel nick

Teşekkür ederim. Sizin ki de gayet hoş " Mustafaine"

 

[leumruk]

Çok teşekkür ederim. Hata sorunu çözüldü ama ne yazık ki kullanıcı adı ve şifre girdikten onra hep hatalı giriş diyor ! Doğru yazmama rağmen. Nedenini anlamadım. Dediğim sebepten dolayı da dosyayı ekleyemiyorum ki

Dosyada denemeden bir şey söylemek zor. Tek kullanıcı adı kullanacaksanız. Bu kodu kullanmanıza gerek yok. Bunun yerine başka bir kod yazalım.

 

[megadeth61]

Sn. leumruk,

Evet, tek kullanıcı olacak. Mümkünse bahsettiğiniz kodları yazabilirmisiniz.

 

[leumruk]

Sn. leumruk,

Evet, tek kullanıcı olacak. Mümkünse bahsettiğiniz kodları yazabilirmisiniz.

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

 

[emre şener]

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