Makro Simgesine Konulan Şifre Girişinde Karakter Gizleme

[astro1976]

Merhaba,

Bir makrom var ve çalıştırmak için şifre soruyor. Aşağıda bu detayı görebilirsiniz. Komutların devamında normalde kopyalamadığım makro detayları mevcut. Aşağıdaki komutlarda makroyu çalıştırmak için şifreyi soruyor, ancak şifre açık halde gözüküyor. Bununla ilgili birkaç forumda yanıt buldum ama işe yaramadı ve anlayamadım. Aşağıdaki şifre komutlarına ne eklersek şifre yazarken gizler ve "*" şeklinde gözükür?

Dim Sifre As String

Sifre = InputBox("Şifreyi Giriniz", "Şifre Girişi")
If Not Sifre = "12345" Then
MsgBox "Şifre Yanlış", vbCritical
Exit Sub
End If

Teşekkürler

 

[OzNvl]

Merhaba,

Şifre bir textbox içine yazılıyor anladığım.

Private Sub InputBox_Change()
InputBox.PasswordChar = "*"

End Sub

Bu kodu kullanırsanız çözülür diye düşünüyorum.

 

[astro1976]

Merhaba,

Şifre bir textbox içine yazılıyor anladığım.

Private Sub InputBox_Change()
InputBox.PasswordChar = "*"

End Sub

Bu kodu kullanırsanız çözülür diye düşünüyorum.

Merhaba OzNvl öncelikle hızlı dönüş ve ilgi için çok teşekkür ederim. Ancak benim kodun neresine dahil etmem ve ne şekilde yazmam lazım, iki kodu birleştirebilir misiniz?

 

[byfika]

Deneyiniz.
Makrolar modülde.

 

[astro1976]

Deneyiniz.
Makrolar modülde.

Maalesef görüntüleyemiyorum. Farklı bir paylaşım rica etsem?

 

[OzNvl]

Dilerseniz dosyanızı yükleyin onun üzerinden gidelim daha sağlıklı olacaktır

 

[Korhan Ayhan]

Merhaba,

Linki inceleyiniz..

Masking Password in VBA Excel Input Box

Could someone please help me to mask the password entered to the input box generated using the below code. I will be using Office 365 ProPlus. Option Explicit Private Sub Worksheet_Change(ByVal Tar...

stackoverflow.com

 

[byfika]

Harici dosya yükleme sitesi silinebilir, deneyiniz

İndir inputbox şifre gizleme xlsm

Dosyayı indir inputbox şifre gizleme xlsm

dosya.co