创建和编辑受密码保护的Excel文件

Question

我正在使用delphi7，我想在我的程序中创建受密码保护的excel文件，并且还希望通过仅使用代码取消保护来编辑它。 我的程序要求是我必须在excel文件中记录数据，但最终用户不会编辑它。那我怎么能用delphi7做呢？

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 := 'password');

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

我试过但得到程序，其中程序只保存密码保护文件，并在创建密码保护的Excel文件后，我无法再次编辑相同的文件。 所以请帮助我。