Ver Mensaje Individual
  #9 (permalink)  
Antiguo 17/01/2011, 07:18
anterma
 
Fecha de Ingreso: enero-2008
Mensajes: 122
Antigüedad: 16 años, 3 meses
Puntos: 0
Respuesta: Obligar a rellenar campos

Pues básicamente la hice como tú me indicaste (muchisimas gracias).
En herramientas creé una macro y luego la modifiqué con el editor de visual. Como lo que queria era que si se escribía algo en la celda A1 obligará a escribir en la B1 y C1 antes de guardar la puse así:
Sub ObligarCelda()
If Range("A1") <> "" And (Range("B1") = "" Or Range("C1") = "") Then
MsgBox ("Error linea 1: Debe completar todos los datos." & vbCrLf & vbCrLf & "Antes no podrá cerrar el libro"), , "vbInformation" + "ERROR DE CIERRE"
Else: ActiveWorkbook.Save
End If
End Sub
Luego cuando la tuve temrinada la probé pulsando F5.
Ahora lo que me falta es que se ejecute automáticamente siempre que cualquier usuario intente guardar el libro. Como ví al crear la macro que se le podía asignar un atajod e teclado le asigné el atajo de guardar (Ctrl+g) pero claro he visto que con esto se ejecuta guardar la primera vez que lo pulso y la macro la segunda, por lo que no es una solución válida.

Saludos y gracias de nuevo.