VBA ile Sifre Karakterlerini Gosterme

Ornek resimle baslamak istedim fakat ornek resim konuyu tam oalrak aciklamayabilir.. Bazi internet sayfalarinda yahut programlarda gormussunuzdur, sifreler baska karakterlerdedirler yahut sifreyi gormek istediginizde size yazdiginiz sifreyi gosterebilirler..

Hem farkli karakterlerle gosterebileceginiz hemde sifrenizi gosterebileceginiz bir ornek hazirlamaya calistik; umarim begenirsiniz..

Oncelikle Gorunumlerini paylasalim,

Ikikez tiklanabilen yani toggle butonumuza yazdigimiz diger bir ifade ile sifre karakterlerini degistiren ve konumuzun kalbi olan kodlarla baslamak istiyorum..

Toggle (Sifre Karakteri) Butonu Kodlari;

Private Sub Toggle_Buton_Click()
On Error GoTo Hata
If Len(Me.Sifre_Alani.PasswordChar) > 0 Then
Me.Sifre_Alani.PasswordChar = ""
Else
Me.Sifre_Alani.PasswordChar = Me.Sifre_Karakterleri.Value
End If
Formu_Kapat:
Exit Sub
Hata:
MsgBox Err.Number & " - " & Err.Description
Resume Formu_Kapat
End Sub

Kapat Butonu Kodlari;

Private Sub Kapat_Butonu_Click()
On Error GoTo Hata
Unload Me
Formu_Kapat:
Exit Sub
Hata:
MsgBox Err.Number & " - " & Err.Description
Resume Formu_Kapat
End Sub

Kapat Initialize Ozelligi Kodlari;

Private Sub UserForm_Initialize()
On Error GoTo Hata
Me.Sifre_Karakterleri.List = Split("*,&,%,$,#", ",")
Formu_Kapat:
Exit Sub
Hata:
MsgBox Err.Number & " - " & Err.Description
Resume Formu_Kapat
End Sub

Ve Ayrica Formumuzu Acmak icin Bir Modul Ekliyoruz;

Sub Form_Ac()
Dim frm As UserForm1
Set frm = New UserForm1
With frm
frm.Show vbModeless
End With
End Sub

Ornek dosyadan inceleme yaparak daha rahat anlayabilirsiniz..

Sifre Karakterleri

 

Yazar: mmustafaaslan

2004 yilindan itibaren ozel bir sirketin finans departmaninda calismaktadir. Kendini excel, visual basic kullaniminda gelistirmis olan yazarimiz; Meslegi geregi SAP konusunda ileri derecede bilgilidir.

Bir Cevap Yazın

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir


7 + 8 =