sil butonuna şifre koymak

[serif_007]

Arkadaşlar merhaba;

Userform üzerinde bir adet sil butonum var ve şu kodlar ekli butonda

 Private Sub CommandButton2_Click()
If ListBox1.ListIndex = -1 Then Exit Sub
R = MsgBox("Seçili Kayıt Sistemden Silinecek Devam Edilsin mi?", vbYesNo)
If R = vbYes Then
If ListBox1.ListIndex = False Then MsgBox "Güncellenecek veri bulunamadı"
Sheets("DATA").Range("a" & ListBox1.ListIndex + 2 & ":j" & ListBox1.ListIndex + 2).Delete Shift:=xlUp
If Sheets("DATA").Cells(Sheets("DATA").Cells(65000, 1).End(xlUp).Row, 2) = "" Then _
Cells(Sheets("DATA").Cells(65000, 1).End(xlUp).Row, 1) = ""
For a = 1 To 9
Controls("TextBox" & a).Text = ""
Next
MsgBox "Veri Kaydı Başarıyla Silindi", Title:=""

Else
MsgBox "Veri Kaydı Silme İşleminiz İptal Edildi", vbInformation, ""
End If
End Sub

sil butonuna bastığım zaman bir şifre ekranının çıkmasını ve sadece benim belirleyeceğim şifre doğru girilirse sil butonunun çalışmasını istiyorum ama ne yapacağımı bilmiyorum yardım edermisiniz?

iyi günler

 

[askm]

Inputbox komutunu deneyin.
Dim sifre As String
sifre = inputbox("Lutfen şifre gırınız", "şifre ekranı")
if sifre<>"abc" Then Exit Sub
...kodlarınız