Scalabium Software
Knowledge for your independence'.
Home Delphi and C++Builder tips

#153: To open the password-protected xls-file and save without password

Today I want to show how you may load some xls-file that is password-protected, and how to save xls into another file but without protection.

var
  xls, xlw: Variant;
begin
  {load MS Excel}
  xls := CreateOLEObject('Excel.Application');

  {open your xls-file}
  xlw := xls.WorkBooks.Open(FileName := 'd:\book1.xls', Password := 'qq',
ReadOnly := True);
  {save with other file name}
  xlw.SaveAs(FileName := 'd:\book2.xls', Password := '');

  {unload MS Excel}
  xlw := UnAssigned;
  xls := UnAssigned;
end;

Just replace there file names and password

Published: December 30, 1899

See also

	Protected Storage Viewer
	MAPIMail
	SMExport suite
	DBISAM Viewer
	Mail parser (ActiveX)
	Excel Web-stream
	Paradox Password Recovery
	DBExport tools
	ABA Database Convert
	Word Web-stream

Contact to webmaster