Hora automatica

Hablando siempre del rango A1:A10, si quieres bloquear la celda que se acaba de modificar y la que se encuentra a su derecha (en la que irá la fecha y hora de modificación), el código podría ser:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Application.Intersect(Target, Target.Parent.Range("A2:A10")) Is Nothing Or Target.Offset(, 1) <> "" Or Target = "" Then Exit Sub

Me.Unprotect Password:="a"
Application.EnableEvents = False
Target.Offset(, 1) = Now
Target.Resize(, 2).Locked = True
Application.EnableEvents = True
Me.Protect Password:="a"
End Sub

Ten en cuenta que para poder bloquear celdas en una hoja es necesario protegerla...


Otra posibilidad es crear un comentario en la celda recién modificada, y poner como texto del mismo la fecha y hora. La ventaja de esta técnica es que ahorra el uso de la celda contigua para reflejar la fecha y hora de modificación, y el inconveniente es que dicho dato no aparecerá si se imprime la hoja (aunque, bien pensado, en ocasiones esto también podría ser una ventaja...). El código es:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Application.Intersect(Target, Target.Parent.Range("A2:A10")) Is Nothing Or Target.Offset(, 1) <> "" Or Target = "" Then Exit Sub

Me.Unprotect Password:="a"
With Target.AddComment
.Text Text:=Format(Now, "dd/mm/yy h:mm:ss")
.Shape.TextFrame.AutoSize = True
End With
Target.Locked = True
Me.Protect Password:="a"
End Sub

Un saludo.


Fernando Arroyo
MS MVP - Excel


"Age" escribió en el mensaje news:

Algo que seri muy bueno seri que una vez colocado la modificacion a la celda
(no tanto modirifcar sino escribir por primera vez), ya no se pueda modifcar
despues, es decir proteger la celda contra modifciaciones futuras. se puede
hacer eso?

"Fernando Arroyo" escribió: