Private Sub Form_BeforeUpdate(Cancel As Integer)
If Me.Dirty Then
Dim response As Integer
    response = MsgBox("Данные изменились.Сохранить изменения?", vbYesNo, "Подтверждение")
        If response = vbNo Then
            Cancel = True
            Me.Undo
        End If
End If
End Sub