Userform VBA Password Box Appears before deleting select data

Please advice how can I make below commandbutton1, I need password box appears before the select data delete.



Private Sub CommandButton1_Click() ' Delete Button
Dim sil As Long
If ListBox1.ListIndex = -1 Then
MsgBox "Choose an entry", vbExclamation
Exit Sub
End If
If ListBox1.ListIndex >= 0 Then
cevap = MsgBox("Entry will be deleted. ... Are you sure ?", vbYesNo)
If cevap = vbYes Then
Sheets("Data").Range("A:A").Find(ListBox1.Text).Activate
sil = ActiveCell.Row
Sheets("Data").Rows(sil).Delete

End If
End If
Call Main 'Progress Bar

For A = 1 To 34

'Controls("textbox" & A) = ""
Next


ListBox1.List = Sheets("Data").Range("a2:AH" & [a65536].End(3).Row).Value
TextBox36.Value = ListBox1.ListCount
End Sub

Try the highlighted changes:

Please Login or Register  to view this content.

Yes...yes is working

Thank you