Butona şifre ekleme

[northcyprus]

sayin ALpi nin yapmış olduğu parola sorucu yu kullanıyorum fakat bi sorunum var aşşağıdaki komut bir butona tıkladığımızda çalışıyor. ve benim istediğim bu butona tıkladığımda önce şifre sorsun sonra bu buton aktif olsun ama ben beceremedim.. yardımlarınızı bekliyorum şimdiden teşkür ediyorum...

Sub KullanıcıEkle()
Dim Bak As Excel.Range
If Not BilgilerBoşmu Then Exit Sub
For Each Bak In Sayfa.Range("A2:A" & KullanıcıSayısı + 2)
If cbKullanıcıAdı = Bak Then
MsgBox "Bu kullanıcı adı zaten kayıtlı. Lütfen başka bir kullanıcı adı giriniz.", vbCritical, Başlık
cbKullanıcıAdı.SetFocus
Exit Sub
End If
Next
If txtParola <> txtParolaTekrar Then
MsgBox "Parola tekrarı doğru değil. Lütfen kontrol ederek yeniden deneyiniz.", vbCritical, Başlık
txtParolaTekrar.SetFocus
Exit Sub
End If
Sayfa.Cells(KullanıcıSayısı + 2, 1) = cbKullanıcıAdı
Sayfa.Cells(KullanıcıSayısı + 2, 2) = txtParola
KullanıcıEkle_Çıkar 1
MsgBox "Yeni kullanıcı kaydedildi...", vbInformation, Başlık
Giriş
txtParola = Empty
txtParolaTekrar = Empty
cbKullanıcıAdı = Empty
cmdKullanıcıSil.Enabled = True
cmdYeniKullanıcı.Enabled = True
End Sub

 

[N.Ziya Hiçdurmaz]

Kodunuzun ba&#351;&#305;na ekleyiniz.
sif = InputBox("&#351;ifrenizi giriniz")
If sif = 123 Then
.....kodlar&#305;n&#305;z
End If