Excelsheet open mode:ReadOnly file protected with password

[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)