ListBox Üzerinden Silerken Şifre sorması

[htsumer]

Aşağıdaki kod ile listbox üzerinden veri siliyorum.Bunu silerken şifre sorsun ve şifre doğruysa silebilsin..

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Sheets("kütük").Rows(Sheets("kütük").Columns(1).Find(ListBox1.Value).Row).Delete
End Sub

Şöyle yaptım ama şifre yazmadan ok yada çarpıya bastğında siliniyor

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
On Error Resume Next
If InputBox("Kaydı silmek İçin Şifre Girin") = 123456 Then
Sheets("kütük").Rows(Sheets("kütük").Columns(1).Find(ListBox1.Value).Row).Delete
End If
End Sub

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

sor = InputBox("Kaydı silmek İçin Şifre Girin")
If sor = 123456 And sor <> "" Then
Sheets("kütük").Rows(Sheets("kütük").Columns(1).Find(ListBox1.Value).Row).Delete
End If

 

[htsumer]

Bu kodda oldu..Şifre yanlış girildiğinde hata mesajı verse iyi olurdu ama gerek yok.Teşekkür ederim..