Desbloquear un Solo Campo

Pregunta el Amigo Cesar del Foro LWP

Tengo un formulario con varios campos:

Fecha, Motivo, Alternativa, Estatus, Fecha2.

Las propiedades del formulario se modificaron para que solo se permita agregar nuevos registros y no se permita modificar los existentes.

¿De qué manera se puede solo desbolquear el campo "Estatus" en los registros existentes para que pueda ser modificado?

Estaré muy agredecido si alguien me puede ayudar.

Saludos desde México.

******************************************** El Codigo ***************************************************************

Function DesblCampoJJJT(frm As Form, tlt As String)

'Como desbloquear un campo en especifico

'Si el formulario esta establecido como No Editable

'**************************** Jefferson Jimenez (JJJT)

'********************************* Cabimas - Venezuela

'****************************************** Junio 2009

'******************************************************

'primero pregunto si se desea editar el campo

prg = MsgBox("Seguro desea editar el campo: " & tlt, vbExclamation + vbYesNo, "Edit")

If prg = vbYes Then 'si la respuesta es SI

Dim ctr As Control 'las variables

Dim ctrfrm As Form

Set ctrfrm = frm 'establezco el form y desbloqueo todo

With ctrfrm

.AllowAdditions = True

.AllowDeletions = True

.AllowEdits = True

End With

For Each ctr In ctrfrm 'recorro los controles del form

With ctr

If .ControlType = acTextBox And .Name <> tlt Then 'la condicion

.Locked = True

End If

End With

Next ctr

End If

End Function ' adios (JJJT)