Código que impida hacer cambios en los datos ingresados

[israelmanriquel]

Hola tengo muchos problemas para gestionar un reporte al cual acceden varios usuarios, necesito de su valioso apoyo para crear un código que impida modificar los datos ya ingresados en dicho reporte.

[TABLE=width: 500]

[TR]

[TD]esta columna recibe datos[/TD]

[TD]esta columna recibe datos 5 minutos después[/TD]

[TD]estacolumnarecibedatos[/TD]

[/TR]

[TR]

[TD]lo que necesito es:[/TD]

[TD][/TD]

[TD][/TD]

[/TR]

[TR]

[TD]ingresa datos/se bloquee[/TD]

[TD]ingresa datos/se bloquee[/TD]

[TD]etc...[/TD]

[/TR]

[TR]

[TD][/TD]

[TD][/TD]

[TD][/TD]

[/TR]

[/TABLE]

Y no se como anlzarala a este otro codigo que las columna ya tienen para ingresar fechas:

Private Sub Worksheet_Change(ByVal Target As Range)

With ActiveSheet

.Unprotect "CONTRASEÑA"

If Not Application.Intersect(Target, Range("A:A")) Is Nothing Then

Range("C" & Target.Row).Value = Now

End If

If Not Application.Intersect(Target, Range("H:H")) Is Nothing Then

Range("I" & Target.Row).Value = Now

End If

If Not Application.Intersect(Target, Range("J:J")) Is Nothing Then

Range("K" & Target.Row).Value = Now

End If

.Protect "CONTRASEÑA"

End With

End Sub