Butona şifre konulması

[yavuz829]

Merhaba arkadaşlar butona şifre koyabilirmiyiz. Örneğin eklediğim dosyada kaydet butonunu tıkladığım zaman şifre sorsun şifreyi girdikten sonra kaydet butonu aktif hale gelsin. Bu şifreyi her işlemde tekrar, tekrar sorsun. Yani girdiğimiz şifre bir işlem için olsun bu konuda yardımlarınızı bekliyorum.

 

[bedri41]

Merhaba arkadaşlar butona şifre koyabilirmiyiz. Örneğin eklediğim dosyada kaydet butonunu tıkladığım zaman şifre sorsun şifreyi girdikten sonra kaydet butonu aktif hale gelsin. Bu şifreyi her işlemde tekrar, tekrar sorsun. Yani girdiğimiz şifre bir işlem için olsun bu konuda yardımlarınızı bekliyorum.

Kaydet butonu kodlarınızın en üstüne aşağıdaki eklemeyi yaparak deneyebilirsiniz.

sifre = InputBox("KAYIT YAPABİLMEK İÇİN ŞİFRE GİRMELİSİNİZ.")
If sifre = "" Then Exit Sub
If sifre <> "123456" Then MsgBox "YANLIŞ ŞİFRE GİRDİNİZ ! LÜTFEN KONTROL EDİN.": Exit Sub

Kolay Gelsin

 

[yavuz829]

Çok, çok teşekürler hocam ellerinize sağlık tam istediğim gibi olmuş.