control fechador

Una consulta, espero me puedan ayudar a mejorar esta macro, muchas gracias desde ahora. Private Sub Worksheet_Change(ByVal Target As Range) Application.MoveAfterReturn = False If Target.Count = 1 Then If (Target.Column = 4 And Target <> 0) ...

Hola amigos, Necesito bloquear el reloj de mi maquina y el fechador, es decir quiero que sigan trabajando normalmente pero sin que nadie pueda entrar y cambiar la fecha de la maquina y la hora. Sucede que corro un programa en esa maquina para checar ...