Add(MainForm,3266432,322,133)
{
 Width=339
 Height=234
 Caption="Открыть Excel с паролем"
 link(onCreate,7610316:doText,[(366,153)(366,139)])
}
Add(Button,13534618,322,203)
{
 Left=20
 Top=50
 Caption="Открыть"
 link(onClick,11039673:doOpen,[])
}
Add(Edit,12260469,434,133)
{
 Left=80
 Top=50
 Width=235
 Text="пароль"
}
Add(VBJScript,11039673,378,203)
{
 WorkPoints=#6:doOpen|
 DataPoints=#4:File|8:password|
 Script=#12:Dim objExcel|0:|22:Sub doWork(Data,Index)|27:    password = sys.password|19:    file = sys.file|52:    Set objExcel = CreateObject("Excel.Application")|27:    objExcel.Visible = TRUE|39:    secur = objExcel.AutomationSecurity|35:    objExcel.AutomationSecurity = 1|64:    Set objWorkbook = objExcel.Workbooks.Open(file,,,, password)|44:    objExcel.AutomationSecurity = secur     |7:End Sub|
 UseName=0
 link(File,7610316:Text,[])
 link(password,12260469:Text,[(391,184)(440,184)])
}
Add(Application,7703,378,70)
{
}
Add(Edit,7610316,378,133)
{
 Left=80
 Top=15
 Width=235
 Text="путь"
 link(Str,7703:AppFileName,[])
}