Girilen Şifrenin Yıldız Olarak Gözükmesi

[baydeniro]

Merhaba Arkadaşlar;
Bir sayfanın açılmasında ekrana mesaj olarak gelen şifre girme ekranına yazılan şifrenin açık olarak görünmemesini **** şeklinde görünmesi nasıl sağlanır.

Private Sub Worksheet_Activate()
PAROLE = "1234"
cvp = InputBox("ŞİFRE GİRİNİZ", "KAYIT SAYFASINA GİRİŞ")
If cvp = PAROLE Then
MsgBox ("***** ŞİFRE DOĞRU *****")
Else
MsgBox ("***** ŞİFRE YANLIŞ *****")
Sheets("Sayfa1").Select
End If
End Sub

 

[Haluk]

Ekli dosya 32 Bit Excel'de çalışıyor....

.

 

[baydeniro]

Ekli dosya 32 Bit Excel'de çalışıyor....

.

Teşekkürler üstad. uyarlamayı deneyeceğim.

 

[Tevfik_Kursun]

Sayın Haluk Hocam,
Bu uyarı neden olabilir?
Saygılarımla

 

[Haluk]

API'leri 64 Bit'e uygun hale getirmediğinizden kaynaklanabilir...

.

 

[Tevfik_Kursun]

Sayın Haluk Hocam,
Declare lerden sonra PtrSafe ve satır sonlarındaki Long ları da LongPtr haline getirmiştim. Acaba başka değişiklik te olmalı mıydı?
Saygılarımla

 

[Haluk]

Kodun hem 32 Bit, hem de 64 Bit'e uygun versiyonu için;

Mask your Password with this VBA InputBox - wellsr.com

Use this VBA InputBox to mask passwords. This private InputBox was originally created by Daniel Klann many years ago, but I'll teach you how to use it.

wellsr.com

.

 

[Tevfik_Kursun]

Sayın Haluk Hocam,
Muhteşem, çok teşekkür ederim.
Saygılarımla

 

[baydeniro]

Kodun hem 32 Bit, hem de 64 Bit'e uygun versiyonu için;

Mask your Password with this VBA InputBox - wellsr.com

Use this VBA InputBox to mask passwords. This private InputBox was originally created by Daniel Klann many years ago, but I'll teach you how to use it.

wellsr.com

.

Haluk üstadım çok teşekkürler. Acaba kendi koduma ekleyebileceğim tarzda 1-2 satırlık ekleme ile parolanın yıldız şeklinde gösterilmesi mümkün müdür !

 

[Korhan Ayhan]

Bunun için en uygunu userform+textbox kullanmaktır. Textbox nesnesinin özelliklerinden bu eklemeyi kolaylıkla yapabilirsiniz.

 

[baydeniro]

Bunun için en uygunu userform+textbox kullanmaktır. Textbox nesnesinin özelliklerinden bu eklemeyi kolaylıkla yapabilirsiniz.

Ekli dosyayı görüntüle 215067

Çok teşekkür ederim Korhan Ayhan üstadım. Deneyeceğim, Sağlıcakla kalın.

 

[Seyit Tiken]

Korhan beyin söylediği gibi bunun kısa yolu varken sistemi germenin bir pratikliği yok. Aşağıdaki görsel istenilen karekteri Password olarak yapabilirsiniz.