excel撤销工作簿的保护，如何设置？

dupit

设置方法如下：
workbook.PropertyPut('Unprotect',['密码']);  

运行调试时，报参数设置无效。

zfang

贴出你完整代码。

dupit

if oExcel=nil then
       oExcel:= ComObj.CreateOleObject('Excel.Application');
    if app=nil then
       app := DispatchHelper.Create(oExcel);
    app.PropertyPut('Visible', [False]);
    app.PropertyPut('DisplayAlerts', [False]);
    if oworkbooks=nil then
       oWorkbooks := app.PropertyGet('Workbooks',[]);
    try
      workbooks := DispatchHelper.Create(oWorkbooks);
      obj1 := workbooks.InvokeMethod('Open',[sName]);
      sourceworkbook := DispatchHelper.Create(obj1);
      obj2 := sourceworkbook.PropertyGet('ActiveSheet',[]);
      sourceworksheet := System.DispatchHelper.Create(obj2);
      sourceworksheet.InvokeMethod('Unprotect', ['123456']);

wuchao

app.PropertyPut('Visible', [False]);
    app.PropertyPut('DisplayAlerts', [False]);
楼主是指这两句出错么？我把您的代码复制测试了下，用下面的语句没有问题呀。
DispatchHelper(app).PropertyPut('Visible', [False]);
DispatchHelper(app).PropertyPut('DisplayAlerts', [False]);

请您把变量声明等相关部分都贴出来看看吧。

wuchao

楼主，按照您贴的代码。为了测试方便，我在把'Visible'和'DisplayAlerts'属性调整为true。
在执行完sourceworksheet.InvokeMethod('Unprotect', ['123456'])后可以通过excel文件看到保护已经被清除。可以修改文件内容，过程中没有报错。
请问楼主您使用的Excel版本是什么，我这边测试用的Excel为 Excel2003。