Textbox a başka textbox tan yazmak

[arslan]

Selem Arkadaşlar
Userform üzerindeki textbox1 den textbox2 ye veri girmek istiyorum.
ama userform kapanıp açıldıkdan sonra girdiğim veri silinmemiş olsun

İlginize teşekkür

 

[Tarkan VURAL]

Selam;
Aynı UserFormdaki textboxtan textboxa veri yazdırmaktaki mantığı anlayamadım ama yardımcı olayım.

Textbox1'e girilen veriyi Textbox2'ya yazdırmak için

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox2.Value = TextBox1.Value
End Sub

Textbox2'deki veriyi korumak için :

Private Sub TextBox2_Change()
Sayfa1.[a1].Value = TextBox2.Value
End Sub

Form tekrar açıldığında Textbox2'deki son yazılan veriyi çağırmak için :

Private Sub UserForm_Activate()
TextBox2.Value = Sayfa1.[a1].Value
End Sub

 

[arslan]

Yardımcı olduğun için teşekkürler
Mantığa gelince. Değiştirilebilir bir kullanıcı adı ve parolası oluşturmak için
sayfayı kullanmadan direkt gizli textboxlarda şifreyi saklarım diye düşünmüştüm.

 

[Tarkan VURAL]

Bunun yerine sayfalardan veri okutabilirsiniz. Yada bilgisayarın içerisinde herhangi bir yerdeki dosyadan kullanıcı adı ve parolası da okutabilirsiniz.
Parolaların bulunduğu sayfaları görmelerini de engellemek mümkün.
Siz ne istediğinize karar verin biz yardıma devam edelim.

Saygılarımla;
Tarkan VURAL

 

[arslan]

Sayfayı gizlemek olabilir. ama bi sorun var sayfadan kullanıcı adını okutunca normal ama sifre rakam olunca sorun oluyor rakamı textbox sayfaya girdiği formatta algılıyamıyor herhalde.bu şekilde yardımcı olabilirseniz sevinirim.
Ayrıca ilgilendiğiniz içinde teşekkür ediyorum.
Bu arada belirteyim makroyu bu site sayesinde yeni öğrenmiş biriyimim.
emeği geçen tüm arkadaşlara teşekkürlerimi sunuyorum

 

[Tarkan VURAL]

Aşağıdaki kodlar vba kodlarında gizli bulunan kullanıcı adı ve parolayı denetliyor.

Private Sub CommandButton1_Click()
TextBox1.Value = UCase(TextBox1.Value)
If TextBox1.Value = "" Then
    MsgBox "Lütfen kullanıcı adınızı giriniz", vbExclamation, "Hata !!!"
        TextBox1.SetFocus
    Exit Sub
ElseIf TextBox1.Value <> "DENEME" Then
    MsgBox "Hatalı kullanıcı adı", vbCritical, "Hata !!!"
        TextBox1.Value = ""
            TextBox1.SetFocus
    Exit Sub
End If
If TextBox2.Value = "" Then
    MsgBox "Lütfen parolanızı giriniz", vbExclamation, "Hata !!!"
        TextBox2.SetFocus
    Exit Sub
ElseIf TextBox2.Value <> "12345" Then
    MsgBox "Hatalı parola", vbCritical, "Hata !!!"
        TextBox2.Value = ""
            TextBox2.SetFocus
    Exit Sub
Else
    MsgBox "Giriş onaylandı", vbInformation, "Başarılı"
    
End If
End Sub

Saygılarımla
Tarkan VURAL

 

[arslan]

Tarkan bey Çok teşekkür ediyorum
Kodları bu şekilde kaydettim ve kullanıyorum.

 

[arslan]

Tekrar Merhaba
Hazırladığım kullanıcı adı ve şifreyi girerken girdiğim kullanıcı adı ve şifreleri Görünmeyecek şekilde ***** girilebilirmiyim.
Ã?rnek olarak.
Kullanıcı adı . *********
Þifre *********

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

[vb:1:a2907125ac]Private Sub UserForm_Initialize()
TextBox1.PasswordChar = "*"
End Sub
[/vb:1:a2907125ac]

 

[arslan]

:hey:
TESEKKÜRLER