excel de şifreleme

[fatih11]

excel sayfama şöyle bir şifre uyguladım

Option Explicit

Dim kullanici_adi(2, 3) As String
Dim şifreler(2, 3) As String

Private Sub CommandButton1_Click()

On Error GoTo Exit_Sub:

If TextBox1.Text = kullanici_adi(1, 1) And TextBox2.Text = şifreler(1, 1) Then
MsgBox ("Tebrikler! Doğru giriş.")
GoTo Exit_Sub
ElseIf TextBox1.Text = kullanici_adi(2, 1) And TextBox2.Text = şifreler(2, 1) Then
MsgBox ("Tebrikler! Doğru giriş.")
GoTo Exit_Sub
ElseIf TextBox1.Text = kullanici_adi(1, 2) And TextBox2.Text = şifreler(1, 2) Then
MsgBox ("Tebrikler! Doğru giriş.")
GoTo Exit_Sub
ElseIf TextBox1.Text = kullanici_adi(2, 2) And TextBox2.Text = şifreler(2, 2) Then
MsgBox ("Tebrikler! Doğru giriş.")
GoTo Exit_Sub
ElseIf TextBox1.Text = kullanici_adi(1, 3) And TextBox2.Text = şifreler(1, 3) Then
MsgBox ("Tebrikler! Doğru giriş.")
GoTo Exit_Sub
ElseIf TextBox1.Text = kullanici_adi(2, 3) And TextBox2.Text = şifreler(2, 3) Then
MsgBox ("Tebrikler! Doğru giriş.")
GoTo Exit_Sub
End If

MsgBox ("doğru giriş yapamadınız. Program kapatılacaktır.!")
TextBox1 = ""
TextBox2 = ""
ThisWorkbook.Close
Exit_Sub:
UserForm2.Hide
Exit Sub


End Sub


Private Sub TextBox1_Change()

End Sub

Private Sub TextBox2_Change()

End Sub

Private Sub UserForm_Activate()
'Kullanıcı adları tanımlanıyor
kullanici_adi(1, 1) = "fatih1"
kullanici_adi(2, 1) = "fatih2"
kullanici_adi(1, 2) = "fatih3"
kullanici_adi(2, 2) = "fatih4"
kullanici_adi(1, 3) = "fatih5"
kullanici_adi(2, 3) = "fatih6"

'Şifreler tanımlanıyor
şifreler(1, 1) = "1234"
şifreler(2, 1) = "1234"
şifreler(1, 2) = "1234"
şifreler(2, 2) = "1234"
şifreler(1, 3) = "1234"
şifreler(2, 3) = "1234"
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = vbFormControlMenu Then
MsgBox "çarpıdan kapatmak yasaktır!"
Cancel = True
End If
End Sub

ancak sorum şu ki şifre kısmını yazarken userformda **** şeklinde görünmesini istiyorum bunu nasıl yapabilirim.

 

[harziyan]

http://www.recursosvisualbasic.com.ar/htm/listado-api/137-inputbox-password.htm

bi bak belki işine yarar.