Guardar excel al escribir en una celda especifica y cerrar sin guardar si escribe en un rango especifico
Tengo una macro la cual me cierra el libro sin guardar cambios al generar cambios en un rango de celdas :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim KeyCells As Range
' The variable KeyCells contains the cells that will
' cause an alert when they are changed.
Set KeyCells = Range("B4:C9")
If Not Application.Intersect(KeyCells, Range(Target.Address)) _
Is Nothing Then
' Display a message when one of the designated cells has been
' changed.
' Place your code here.
End
MsgBox "Cell " & Target.Address & " has changed."
ActiveWorkbook.Close Savechanges:=False
ThisWorkbook.Close True
End If
End Sub
Funciona correctamente pero también tengo otra que me escribe datos en =B3:C3
Y quisiera que me escriba correctamente los datos en =B3:C3 y después guardar
Y después de eso ya funcionaria la otra macro que al tratar escribir en otras celdas B4:C9 el libro se cierre sin guardar.
