I would like to Modify the code below to do the following if possible

When a user tries to delete a row or column they get an "Warning or Error" first saying something like "Deleting Rows or Column Is Not Allowed without a password" Do you wish to continue? (if they select YES a password dialog box shows and if they say NO the row or column they tried to delete is restored and a msg box will show saying "no changes have been made"

If they enter the wrong password they get to "RETRY" or "Cancel" If they cancel a msg box will say "No Changes Have Been Made" If they enter the correct password the row or column gets deleted and a msg box confirms that a row/column has been deleted.

Thanks in advance to anyone who can help

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    Dim Msg As Variant
    Dim pWord As String
    pWord = "deleterow"

    If Target.Address = Target.EntireRow.Address Or _
       Target.Address = Target.EntireColumn.Address Then
passwrd:
        response = InputBox("Enter Password To Continue")
        If response = "" Then
        
        GoTo undochange
        ElseIf response <> pWord Then

            Msg = MsgBox("Please Enter Correct Password To Continue", 5, "Incorrect Password")
            If Msg = 4 Then GoTo passwrd
            Msg = "Deleting Rows/Columns Not Permitted"
            Msg = MsgBox(Msg, 16, "WARNING")
undochange:
            With Application
                .EnableEvents = False
                .Undo
                .EnableEvents = True
            End With
        Else
            Exit Sub
        End If
    End If
End Sub