login form'da destek

[anthraxx02]

merhabalar;
excel'imde login form ekledim ve stabil çalışmakta lakin küçük bir hata var veya olması gereken de diyebiliriz.

hatamız şu şekilde textboxPassword adlı textbox şifre girerken yıldız(******) şekilde gelmemekte 123456 şeklinde görünür şekilde olmakta bunun çözümü varmıdır?

Private Sub CommandButton1_Click()

Dim username As String
Dim password As String

username = UserForm1.textboxUsername.Value
password = UserForm1.textboxPassword.Value

If username = "admin" And password = "123456" Then

MsgBox "BU EXCEL İNCİ GİYİM'E AİTTİR.", vbInformation
UserForm1.Hide
ThisWorkbook.Worksheets(1).Select

Else

MsgBox "Kullanıcı Adı Veya Şifre Yanlış..." & vbNewLine & "Lütfen Tekrar Deneyiniz...", vbCritical, "HATA"
UserForm1.textboxUsername.Value = ""
UserForm1.textboxPassword.Value = ""


End If
End Sub

 

[PLİNT]

Merhaba
"Userform" un kod penceresine aşağıdaki kodları kopyalayıp yapıştırıp deneyiniz (eğer "Sub textboxPassword_Change" başılığı zaten var ise uyarlarsınız)

Private Sub textboxPassword_Change()
With textboxPassword
.PasswordChar = "*"
If Len(textboxPassword) > 6 Then
MsgBox "Şifre 6 Haneli Olmalı"
.Text = Left(.Text, 6)
End If: End With
End Sub

 

[EmrExcel16]

Merhaba alternatif olarak..
"TextBox" 'ın "Properties" kısmından "PasswordChar" ayarına bir adet "*" karakteri eklerseniz TextBox "*" şeklinde gelir..

 

[anthraxx02]

Merhaba
"Userform" un kod penceresine aşağıdaki kodları kopyalayıp yapıştırıp deneyiniz (eğer "Sub textboxPassword_Change" başılığı zaten var ise uyarlarsınız)

Private Sub textboxPassword_Change()
With textboxPassword
.PasswordChar = "*"
If Len(textboxPassword) > 6 Then
MsgBox "Şifre 6 Haneli Olmalı"
.Text = Left(.Text, 6)
End If: End With
End Sub

çalışır durumda çok işe yaradı çok teşekkürler