Quisiera saberlo tambien para agregar a la macro
Edito:
Logre que alguien me ayudara con el codigo.
Tengo a agradecer a ioyama, colaborador en otro foro, la cual programó el codigo
Para agradecerle dejo su link Pido que nadie del STAF o direccion, se moleste por esto pero soy de los que pienso que al que ayuda, hay que agradecerle
El codigo para futuros buscadores
En un modulo
Cita: Sub Bt()
If Range("A1") <> "" And Range("B1") <> "" And Range("C1") <> "" Then
ActiveWorkbook.Save 'SERIA ALGO ASÍ
Else
MsgBox ("Una de las celdas A1, B1 y C1 está(n) vacia(s), favor revise y rellene" & vbCrLf & vbCrLf & "Antes no podrá cerrar el libro"), , "vbInformation" + "ERROR DE CIERRE"
End If
End Sub
En ThisWorkbook
Cita: Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Range("A1") = "" Or Range("B1") = "" Or Range("C1") = "" Then
MsgBox ("Una de las celdas A1, B1 y C1 está(n) vacia(s), favor revise y rellene" & vbCrLf & vbCrLf & "Antes no podrá cerrar el libro"), , "vbInformation" + "ERROR DE CIERRE"
Cancel = True
End If
End Sub