Perguntas Bloquear alteração em um campo

Gostaria de bloquear alterção de um campo, se alguem puder me ajudar sou aspirante em advpl.
User Function M030PALT()
Local cQuery

IF ( trim(__cUserID) == '000134' .or. trim(__cUserID) == '000118' .or. trim(__cUserID) == '000000' )

ELSE



cQuery := "select A1_COND from SA1010 where SA1010.D_E_L_E_T_ = ''" //busca a condição de pagamento gravada no banco
cQuery := ChangeQuery(cQuery)

dbSelectArea("SA1")

if dbSeek(xFilial("SA1")+SA1->A1_COND)
condcli := SA1->A1_COND
if cQuery <> condcli
Msgstop("Usuario não possui altorização para alterar a condição de pagamento, solicite alteração para o dpto de cobrança!","Atenção!")

Return .F.
Else
Return .T.
ENDIF

ENDIF


ENDIF

Luiz Alberto, esta ideia vai resolver uma serie de outros questões, obrigado, mas no caso especifico não resolve porque os outros usuários precisão acessar consulta padrão para visualizar informações.