Butona Şifre Ekleme

[RedStar]

Arkadaşlar iyi akşamlar kolay gelsin

Ben makro kaydetme yöntemi ile bir makro kaydettim ve bunu bir buton oluşturarak o butona atadım. Benim yapmak istediğim kaydettiğim makroyu çalıştırmak istediğimde bana şifre sorulması doğru şifreyi girince makronun çalışarak işlem yapması yanlış şifre girilmesi halinde ise uyarı vererek makronun çalışmaması.

İlgi ve alakanız için teşekkür ederim.

 

[Necdet]

Merhaba,

Bir örnek, inceleyiniz.

Sub Sifre()

    Dim Sifre As String
    
    Sifre = InputBox("Şifreyi Giriniz", "Şifre Girişi")
    
    If Not Sifre = "[COLOR="Red"][B]abc[/B][/COLOR]" Then
        MsgBox "Şifre Yanlış", vbCritical
        Exit Sub
    End If
    
    'Sizin Kodlarınız
    
End Sub

 

[RedStar]

Çok teşekkür ederim şifre girme ekranında şifrenin ***** şeklinde gözükmesini sağlayabilirmiyiz

 

[Necdet]

Çok teşekkür ederim şifre girme ekranında şifrenin ***** şeklinde gözükmesini sağlayabilirmiyiz

Şifreyi InputBox ile değil Formda TextBox ile alınırsa istediğiniz karakter ile gösterim yapılabilir.

Textbox özelliklerinden Password karakterini belirtmelisiniz.