Utilidad de ThisWorkBook (grabar cambios)

Devuelve un objeto WorkBook, que representa el libro en que se está ejecutando el código de la macro activa. Este ejemplo se utilizará para cerrar la hoja de trabajo donde se aplica la macro y decidir si se quieren guardar las modificaciones realizadas o no.

1° Entrar al VBA (ALT + F11)
2° Insertar un UserForm
3° Incluir 2 botones de comando con las opciones de "Salir y Guardar" y "Cerrar hoja"

4° Se hace doble click en cada boton para definir su codigo:

Private Sub CommandButton1_Click()
ThisWorkbook.Close SaveChanges:=True
End Sub

Private Sub CommandButton2_Click()
ThisWorkbook.Close SaveChanges:=False
End Sub

5° Se inserta un CommandButton (Activex) en la hoja del excel
6° Se hace doble click desde el modo de diseño para insertar el codigo

Private Sub CommandButton1_Click()
UserForm1.Show
End Sub

7° Ahora para utilizarse, si se realiza algun cambio en la hoja y no se desea guardar, se elige "Cerrar hoja" y no se pregunta si se quiere guardar cambio. Si desea guardarse, se elige "Salir y guardar" y el excel te pedirá la ubicación final del archivo. Tambien puede incluirse el destino en la programación misma.

 Elaborado por: Jacques Sovero