在Delphi7中加密和保护Excel(100分)

大家好，我刚学Delphi，今天我在连接Excel2003时，我能够在Excel2003没有密码保护的情况下顺利使用，Excel2003采用密码（密码假设为123456）保护工作表时，就无法使用，谁能告诉小弟一下如何才能正常使用，无密码的代码如下：
procedure TForm1.Button2Click(Sender: TObject);
var
wkBk : _WorkBook;
EParam : Variant;
do
cuType : Variant;
//打开EXcel
begin
EParam:=EmptyParam;
do
cuType:=0;
try
wkBk:=ExcelApp.Workbooks.Add(EParam,do
cuType);
wkBk:=ExcelApp.WorkBooks.Open('d:/book1.xls',EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,DocuType,EmptyParam,123456);
except
showmessage('打开工作簿失败！');
end;
end;

procedure TForm1.Button4Click(Sender: TObject);
var
wbbk : _workbook;
wbst : _worksheet;
//输入数据
begin
wbbk:=ExcelApp.ActiveWorkbook;
wbst:=wbbk.ActiveSheet as _Worksheet;

wbst.Cells.Item[1,1]:=edit1.Text;
wbst.Cells.Item[1,2]:=edit2.Text;
wbst.Cells.Item[1,3]:=edit3.Text;
wbst.Cells.Item[1,4]:=edit4.Text;
end;

看看这个，如果不行，可以自己录制“宏”，然后根据宏的代码修改为delphi的即可
http://www.delphibbs.com/delphibbs/dispq.asp?lid=2123490

我需要的是针对某一个具体的工作表进行加密代码，用于防止其他人乱修改

顶