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

[hassan26]

Selam Arkadaşlar
Örneğin
Private Sub CommandButton13_Click()
sor = InputBox("Şifrenizi giriniz")
sifre = "1234"
If sor = sifre Then
ActiveWorkbook.Unprotect "1234"
Sheets("FARK").Select
Else
MsgBox "Yanlış şifre girdiniz."
End If
End Sub
Bu kodda şifre istendiğinde şifre ekranda görünüyor bunu **** olarak göstermek için kod'a ne eklemeliyim
Saygılar

 

[Levent Menteşoğlu]

Aşağıdaki linki inceleyin.

inputbox veri girişini**** şeklinde yapabilirmiyiz.

 

[hassan26]

Sayın Levent bey teşekkürler ama bu örnekler beni aşar helede inputbox örneği
bir yıldız yapmak için bi dünya kod yazmış neresini kullanayım baştan aşağı hepsi birbirine bağımlı tek harfini silsen hata veriyor hazırladığımız bir dosyada birsürü şifreli yer olsa yandık userform ile şifre sorgulamada yapmak istemiyorum. Neyse böyle kalsın teşekkür ederim ilginize.

 

[hassan26]

Sayın Leventm hemen pes etmiştim ama azmin elinde birşey kaçmıyormuş Sayın veyselemrenin verdiği bir site adresinden faydalandım aslında her sayfaya değil fonksiyon kodlarını sadece module yazmak ve workbook içinde yazdığımız her inputboxlara DK adını vermek yetiyormuş.
Peki bunları neden yazıyorum.
Formun neresinde okudum hatırlamıyorum ama orda yaklaşık şöyle bir ifade vardı üyelerin sordukları konun sonunda sorununa çözüm bulup bulmadığını anlayabilmek için oldu veya olmadı tarzında açıklayıcı bir bilgi koymaları gerektiği hatırımda kalmış bende bu amaçla açtığım bu başlığın çözüme ulaştığını yeni eski bu konuya bakan forumdaki tüm arkadaşların okuması için yazdım. Hani bazı yerlerde yazar ya Nasıl bulmak istiyorsan öyle bırak bu sözü foruma uyarlamak gerekirse Sen baktığın bir konunun çözüme ulaşıp ulaşmadığını anlamadığında nasıl sinirleniyorsan Öyleyse önce kendi açtığın konun çözüme ulaşıp ulaşmadığını belirtki başkalarıda sinirlenmesin.
Saygılar...

 

[Necdet]

Sayın hassan26,

Sorununuzun çözülüp çözülmediği konusunda gösterdiğiniz bu özen için sizi kutlarım.

Saygılar.

 

[Levent Menteşoğlu]

Bende bu örnek gösterilecek duyarlılığınız nedeniyle teşekkür ederim.

 

[ramo-62]

şifrenin ******* şeklinde girilmesi

Selam Arkadaşlar

ekteki isteğim olabilir mi?

Teşekkürler.

 

[chevas]

Sayın Leventm hemen pes etmiştim ama azmin elinde birşey kaçmıyormuş Sayın veyselemrenin verdiği bir site adresinden faydalandım aslında her sayfaya değil fonksiyon kodlarını sadece module yazmak ve workbook içinde yazdığımız her inputboxlara DK adını vermek yetiyormuş. ...

Dediğiniz gibi DK = Application.inputbox(Şifre giriniz) şeklinde kaydediyorum şifreyi yıldız olarak göstermiyor. Yardım Pls