Mantener fecha fija en excel

On Sep 6, 4:20 pm, Doors wrote:

Saludos, amigos una consulta, tengo un formulario en excel, en la celda a4,
el usuario ingresa la fecha, como puedo hacer para que esa fecha nadie me la
pueda modificar, es decir que en el momento en que se dijite se proteja esa
celday no haya forma de modificarla.

Esto es porque trabajamos con un formulario para soporte de ti, y se tienen
2 dias para resolver alguna averia y algunas personas manipulan la fecha en
que se registro.

Alguien me puede ayudar????

GRACIASSSSSSSSSSSS!!!!!!!!!!!!!!!!!!

Doors:
Se puede hacer de dos maneras. En cualquiera de las alternativas que
uses ubica
el codigo en el area de codigo de la hoja y no en un modulo normal.
Las macros se activan
cuando estas en la celda B4.

En el primer caso no es necesario proteger la hoja:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo salir
Application.EnableEvents = False
If Target.Address = "$B$4" And (Target.Value = "" Or Target.Value
= 0) Then
MsgBox "Introduzca la fecha"
ElseIf Target.Address = "$B$4" And Target.Value > 0 Then
MsgBox "El formato ya tiene fecha"
Target.Offset(0, 1).Activate
End If
salir:
Application.EnableEvents = True
End Sub


En el segundo caso debes proteger la hoja, establecer las celdas que
aceptan datos
y definir una "clave" usando Proteccion en el menu de Herramientas.
Esta misma clave es la que vas a introducir en el codgio:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo salir
Application.EnableEvents = False
If Target.Address = "$B$4" And (Target.Value = "" Or Target.Value
= 0) Then
ActiveSheet.Unprotect "clave"
Range("B4") = InputBox("Introduzca la fecha")
If Range("B4") < 0 Then GoTo salir
Selection.Locked = True
ActiveSheet.Protect "clave"
ElseIf Target.Address = "$B$4" And Target.Value > 0 Then
MsgBox "El formato ya tiene fecha"
End If
salir:
Application.EnableEvents = True
End Sub


David