Cita:
Iniciado por JoaoM 
Alguna macro para agregar este codigo en
Private Sub Workbook_BeforeClose(Cancel As Boolean)
if range("A1")<>"" AND range("B1")<>"" AND range("C1")<>"" then
ActiveWorkbook.Save 'SERIA ALGO ASÍ
Else
msgbox("La linea A1, está incompleta, favor revise y proceda" & vbCrlf & vbcrlf & "Antes no podrá cerrar el libro"), , "vbInformation" + "ERROR DE CIERRE"
End if
End Sub
Del MsgBox faltaria: algun codigo para que Si llena las celdas mensionadas en el codigo, NO presenta mensage y cierra aceptando guardar.
Si falta llenar alguna de las celdas mensionadas, PRESENTA mensage y NO DEJA CERRAR EL LIBRO mientras no llene las celdas respectivas
Por mi parte ya intente de varias formas pero no doy con ella, visto que mis conocimientos son debiles en esto de VBA y macros.
Se que el codigo es este pero como dije, en el MsgBox falta completar el codigo para lo expuesto.
Talves la posicion de las lienas de rutina o algo que yo no soy capaz de hacer pero, la posicion ya probe cambiarlas pero no me da lo requerido