Arkadaşlar merhaba;
Foruma uzun süredir giremiyordum, umarım herkes iyidir.Bir problem ile karşılaşınca yardımınıza müracat etmek zorunda kaldım.Elimde aşağıdaki gibi bir kod var, bir sayfanın açılmasında kullandığım şifre var ancak yazılan şifrenin görünmemesini istiyorum.Yani * şeklinde çıkması lazım.
Forumu karıştırdım ancak çok usta olmadığım için pek yapamadım sanırım.
Yardımlarınız için şimdiden teşekkürler.
Foruma uzun süredir giremiyordum, umarım herkes iyidir.Bir problem ile karşılaşınca yardımınıza müracat etmek zorunda kaldım.Elimde aşağıdaki gibi bir kod var, bir sayfanın açılmasında kullandığım şifre var ancak yazılan şifrenin görünmemesini istiyorum.Yani * şeklinde çıkması lazım.
Forumu karıştırdım ancak çok usta olmadığım için pek yapamadım sanırım.
Kod:
'ŞİFRE GİRİLEN KOD
Private Sub CommandButton1_Click()
SECRET = "5252"
cvp = InputBox("ŞİFRE GİRİNİZ", "CARİ SAYFA")
If cvp = SECRET Then
sutungoster
Set mesaj = CreateObject("WScript.Shell")
mesaj.popup "CARİ SAYFA AÇILDI", 1, DOĞRU
'MsgBox "CARİ SAYFA AÇILDI"
CommandButton1.Enabled = False
Else
Set mesaj = CreateObject("WScript.Shell")
mesaj.popup " ŞİFRE YANLIŞ", 1, HATA
'MsgBox " ŞİFRE YANLIŞ"
End If
End SubYardımlarınız için şimdiden teşekkürler.