BLOQUEO CONDICIONAL

On 24 mayo, 13:58, MARCO PIRELA
wrote:

Buenos Dias queridos amigos, espero puedan ayudarme en este momento:
Necesito hacer un reloj chequador de asistencia de personal (algo sencillo)
y mis campos son:
#identificacion hora (entrada y/o salida)
15456887 (cuando yo ingrese el numero de identificacion que coloque
automaticamente la fecha y hora en el campo hora, pero que no permita
cambiarlos o sea que una vez ingresados los valores que inmediatamente se
bloqueen las celdas.
Gracias!

Marco,

Tendrias que poner un boton con el sigte código.

Sub Hora()
ActiveCell.Offset(0, 1).Select
ActiveCell.FormulaR1C1 = "=HOUR(NOW())&"":""&MINUTE(NOW())"
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ActiveCell.Offset(1, -1).Select
End Sub

entonces, luego de ingresar el codigo de la persona, presionas el
boton...
te servira?

On 24 mayo, 13:58, MARCO PIRELA
wrote:

Buenos Dias queridos amigos, espero puedan ayudarme en este momento:
Necesito hacer un reloj chequador de asistencia de personal (algo sencillo)
y mis campos son:
#identificacion hora (entrada y/o salida)
15456887 (cuando yo ingrese el numero de identificacion que coloque
automaticamente la fecha y hora en el campo hora, pero que no permita
cambiarlos o sea que una vez ingresados los valores que inmediatamente se
bloqueen las celdas.
Gracias!

No tomes en cuenta el codigo anterior!!!...
==Para bloquear las celdas, tienes que hacer esto:
Selecciona las celdas que quieres modificar (ej, donde ingresas el
numero de id) y vas a Formato > Celdas > Proteger y deselecciona
"Bloqueada".
Luego vas al menu Herramientas > Proteger > Proteger Hoja y aceptas.

y pon el siguiente codigo...

Sub Hora()
ActiveSheet.Unprotect
ActiveCell.Offset(-1, 1).Select
ActiveCell.FormulaR1C1 = "=NOW()"
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ActiveCell.Offset(1, -1).Select
ActiveSheet.Protect
End Sub

Buen dia Arcano, gracias por la intension que tienes para ayudarme, pero tu
respuesta no me ayudo a resolver el problema, pudo haber sido que no explique
bien el asunto en cuestion, te lo planteo de nuevo para ver si puedes hacer
algo:

Existe una celda vacia y desbloqueada Ej. A1, pero una vez que yo le
introduzca datos y presione enter los datos se bloqueen automaticamente, o
sea que no puedan ser modificados, al menos que se introduzca una clase
(pudiera ser de desbloqueo).
Otra cosa a probar seria un boton, pero no se como se insertan y se trabajan.
Gracias nuevamente por tu intension.
Hasta luego
Marco Pirela