Excelsheet open mode:ReadOnly file protected with password

[Lucas]

Is possible to open a file with Excelsheet with no prompt?

[Gintaras]

Clone function ExcelSheet.Init to eg ExcelSheet.Init2.
In ExcelSheet.Init2:
Add 2 new parameters:

Code:

Copy      Help

[readOnly] [$password]

.
Find

Code:

Copy      Help

b=a.Workbooks.Open(...)

and change to

Code:

Copy      Help

b=a.Workbooks.Open(sb @ readOnly @ password password TRUE)

.
Example:
Macro Macro2146

Code:

Copy      Help

ExcelSheet es.Init2("" 8 "$documents$\readonly.xls" "" TRUE "password9643")
out es.Cell(1 1)

[Lucas]

Ok.
Thanks.