А у меня вот при таком коде все нормально открывется без всяких паролей
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
XL: Variant;
begin
XL:=CreateOLEObject('Excel.Application');
XL.WorkBooks.Open('e:\excel');
XL.ActiveWorkbook.Unprotect('1');
XL.Visible := True;
end; |