[paco-roldan]

Estoy creando una librería de funciones para automatizarme procesos de excel, pero me estoy quedando "bloqueado" con el bloqueo/desbloqueo de celdas.

No tengo problemas abriendo libros, modificando celdas, guardando cambios,... pero con este tema tengo problemas.

Os muestro la parte de código que intento realizar y me da error de ejecución.
Para más información diré que utilizo el espacio de nombres de Excel2000
La función en cuestión es DesprotegeRango, y siempre es llamada tras abrir una hoja de excel.

A ver si me podeis ayudar con esto (he visto una consulta similar a la mía hecha el año 2003 pero no me funciona)


var
Excel: TExcelApplication;
Libro: _Workbook;
NombreLibro: String;
Hoja1: _Worksheet;
Hoja2: _Worksheet;

implementation

function DesProtegeRango(Celda1, Celda2: string): TResultado; stdcall;
begin
result.Estado := true;
result.Texto := '';
try
hoja1.Range[celda1, celda2].Locked:=false;
except
result.Estado:= false;
result.Texto:= 'Ocurrió una excepción al DesProteger un rango de celdas.'
end
end;