Como proteger um registro de ser alterado?

create exception reristro_protegido ´Este registro esta protegido´;

set term ^;

create trigger tr_protege_exclusao for sua_tabela before delete as
begin
  if (old.campo_chave = algum_codigo) then  
    exception registro_protegido;
end^

create trigger tr_protege_alteracao for sua_tabela before update as
begin
  if (old.campo_chave = algum_codigo) then
    exception registro_protegido;
end^

create trigger tr_protege_alteracao for sua_tabela before update as
begin
  if (old.campo_chave = algum_codigo) and (user <> ´SYSDBA´) then
    exception registro_protegido;
end^