Delphi dicas

Abrir um arquivo xls protegido por senha

Abrir um arquivo XLS protegido por senha e salvar com outra senha.



var

xls, xlw: Variant;

begin

        {load MS Excel}

        xls := CreateOLEObject('Excel.Application');



        {open your xls-file}

        xlw := xls.WorkBooks.Open(FileName := 'd:ook1.xls', Password := 'qq', ReadOnly := True);

        {save with other file name}

        xlw.SaveAs(FileName := 'd:ook2.xls', Password := '');



        {unload MS Excel}

        xlw := UnAssigned;

        xls := UnAssigned;

end;

por : Fernando Blomer