Application.InputBox kutusuna yazılan şifre *** şeklinde görünmesi

[ASLAN7410]

Merhaba arkadaşlar hayırlı geceler.

Aşağıdaki kodu kaydetmek için kullanıyorum.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim x As String
If Application.InputBox("Kaydetmek için şifre giriniz.", "A S L A N") <> "123" Then
Cancel = True
MsgBox "Girdiğiniz şifre doğru değil," & vbCrLf & "kayıt işlemi yapılmadı.", vbInformation, "A S L A N"
End If
End Sub

Benim istediğim Application.InputBox kutusunun içerisine yazılan şifrenin *** şeklinde görünmesini istiyorum.

Forumda araştırdım ancak bulamadım.
Yardım edecek arkadaşlara şimdiden teşekkür ederim.

 

[Ömer BARAN]

Merhaba.
İncelemedim ama aşağıdaki konuyu açan üye,
sorunun çözüldüğünü belirtmiş.
Bir bakın isterseniz.

Inputbox'a şifreyi yıldız karakteri olarak girme

 

[ASLAN7410]

Sayın Ömer Bey hayırlı geceler, vermiş olduğunuz linki inceledim, ancak buradaki konu çok eski olduğu için kod ile verilen örnekleri açmak için veya indirmek için tıkladığımda dosyanın olmadığını görüyorum.

 

[ÖmerBey]

Userform ile alternatif çözüm isterseniz...

 

[Emir Hüseyin Çoban]

. . .

Pek çok kez işlenen bir konu
ancak içerisinde bilmediğiniz çok fazla kodlama olduğu için astarı yüzünü geçen bir yapı olacaktır.

http://www.excel.web.tr/f57/input-boxa-girilen-ifrenin-yyldyz-eklinde-olmasy-t10617/post57092.html

. . .

 

[ASLAN7410]

Sayın Mucit Bey ve Hüseyin Bey ilginiz için çok teşekkür ederim, her ikiside işime yarayacak.
Hayırlı çalışmalar.