Excel AddCode in worksheet

[Gintaras]

Macro Macro3037

Code:

Copy      Help

ExcelSheet a.Init
Excel.Range s=a.ws.Range("C1")

typelib Excel

s.Borders.Item(xlDiagonalDown).LineStyle = xlNone
Border b=s.Borders.Item(xlEdgeLeft)
b.LineStyle = xlContinuous
b.Color = 0x0000ff
;b.TintAndShade = 0
b.Weight = xlThin

FormatConditions - here exception too.
AddCode - here exception too, something about security.