MyWorkbook:=TsWorkbook.Create;
try
MyWorkbook.ReadFromFile('PwdYes_123456.ods', '123456'{, sfOpenDocument});
MyWorksheet:=MyWorkbook.GetFirstWorksheet;
Memo1.Lines.Add('File with password: Col = ' +
IntToStr(MyWorksheet.GetLastColIndex(False)) +
' - Row = ' +
IntToStr(MyWorksheet.GetLastRowIndex(False)));
finally
FreeAndNil(MyWorkbook);
end;