19/12/2007, 07:05
|
| | | Fecha de Ingreso: junio-2007
Mensajes: 20
Antigüedad: 17 años, 7 meses Puntos: 1 | |
| Re: Evitar grabar si no se completan las celdas
Gracias Yenay,
Me ha dado resultados con esta sentencia:
Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, ByRef Cancel As Boolean)
If Range("D6").Value = "" Then Cancel = True
If Range("D6").Value = "" Then MsgBox ("Antes de Grabar, debe primero llenar la celda D6 del formulario")
End Sub |