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

我正在使用delphi7，我想在我的程序中创build密码保护excel文件，也想通过仅使用代码取消保护来编辑它。 我的程序要求是我必须在excel文件中logging数据，但不会被最终用户编辑。所以我怎样才能使用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; 

我试过，但得到程序只在保存密码保护的文件和创build密码保护的Excel文件后，我不能再次编辑同一个文件。 所以请帮助我。