Solved: Alert before delete a record

[sujittalukde]

I have a macro which deletes the selected record But it doesnot alert any message before delete I want that the when the code will be run, a alert msg should pop up asking "Do you really want to delete the record?" if the user clicks "Yes" then the record should be deleted and if the user clicks "No" , no deletion should take place and the msg box should go off the screen.

Sub DeleteRecord()
    Dim intActiveRow As Integer
 
    Application.ScreenUpdating = False
 
    intActiveRow = ActiveCell.Row
 
    ActiveSheet.Unprotect password:="abcd"
    With Range("A" & intActiveRow)
        .EntireRow.Delete
    End With
    ActiveSheet.Protect password:="abcd"
 
    Application.ScreenUpdating = True
End Sub

[lucas]

See if this works for you:
[VBA]Option Explicit
Public Sub CustomMessageBoxes()
Dim iResponse As Integer
Dim intActiveRow As Integer
iResponse = MsgBox(Prompt:="Click Yes or No.", _
Buttons:=vbYesNo + vbCritical)
Select Case iResponse
Case vbYes
Application.ScreenUpdating = False
intActiveRow = ActiveCell.Row
ActiveSheet.Unprotect Password:="abcd"
With Range("A" & intActiveRow)
.EntireRow.Delete
End With
ActiveSheet.Protect Password:="abcd"
Application.ScreenUpdating = True
Case vbNo
' MsgBox Prompt:="You clicked No."
Exit Sub
End Select
End Sub[/VBA]

[lucas]

or you can call it like this and call the macro you already have:
[VBA]Public Sub CustomMessageBoxes()
Dim iResponse As Integer
Dim intActiveRow As Integer
iResponse = MsgBox(Prompt:="Click Yes or No.", _
Buttons:=vbYesNo + vbCritical)
Select Case iResponse
Case vbYes
DeleteRecord
Case vbNo
' MsgBox Prompt:="You clicked No."
Exit Sub
End Select
End Sub[/VBA]

[anandbohra]

try this simplest way

[VBA]Sub DeleteRecord()
Dim a
Dim intActiveRow As Integer
Application.ScreenUpdating = False
intActiveRow = ActiveCell.Row
ActiveSheet.Unprotect Password:="abcd"
a = MsgBox("do you really want to delete record", vbYesNo + vbCritical, "Your Name")
If a = vbYes Then
With Range("A" & intActiveRow)
.EntireRow.Delete
End With
End If

ActiveSheet.Protect Password:="abcd"

Application.ScreenUpdating = True
End Sub[/VBA]

[sujittalukde]

Thank you lucas, thanks anand.
Codes are perfect.