使用WScript修改受密码保护的excel VB项目

我正在尝试使用WScript修改excel VB项目组件，其中一些组件受密码保护。有两个目标：替换一些项目引用和修改一些代码。当我运行脚本来替换引用时，会出现“密码”对话框，我输入密码，结果是它们应该是。但是修改代码的脚本没有给我密码对话框；它完全失败了。有人能提出这样做的原因和解决方案吗

更改引用的代码：

'------------------------------------------------------------------------

function ReplaceReference(path)

    replaced = false

    set app = createobject("Excel.Application")
    app.visible = true

    set wb = app.workbooks.open(path)

    for each r in wb.vbproject.references
        if r.name = "OldReference" then
            wb.vbproject.references.remove r
            wb.vbproject.references.addfromfile "NewReference.xla"
            wb.save
            replaced = true
            exit for
        end if
    next

    wb.close false

    app.quit

    ReplaceReference = replaced

end function

'------------------------------------------------------------------------

用于修改模块代码的代码：

'------------------------------------------------------------------------

function ReplaceCode(filename)

    set app = CreateObject("Excel.Application")
    app.visible = true

    file_modified = false

    set wb = app.workbooks.open(filename)

    set comps = wb.vbproject.vbcomponents

    for each comp in comps

        set modu = comp.codemodule

        if not modu is nothing then

            for i = 1 to modu.countoflines

                oldline = modu.lines(i, 1)

                newline = replace(oldline, "OldCode", "NewCode")

                modified = not (newline = oldline)

                if modified then
                    modu.replaceline i, newline
                    file_modified = true
                end if

            next

        end if

    next

    if file_modified then wb.save
    wb.close false

    ReplaceCode = file_modified

    app.quit

end function

'------------------------------------------------------------------------

---

您是否收到错误，或者wb.save只是没有“做任何事情”？没有错误。脚本甚至没有到达wb.save。