Add(MainForm,3266432,273,147)
{
 Width=339
 Height=234
 Caption="Открыть Excel с паролем"
 link(onCreate,3433397:doStrCat,[])
}
Add(Button,13534618,287,315)
{
 Left=20
 Top=50
 Caption="Открыть"
 link(onClick,11039673:doOpen,[])
}
Add(Edit,12260469,434,245)
{
 Left=80
 Top=50
 Width=235
 Text="пароль"
}
Add(VBJScript,11039673,378,315)
{
 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,296)(440,296)])
}
Add(Edit,7610316,378,245)
{
 Left=80
 Top=15
 Width=235
 Text="путь"
 link(Str,3433397:Result,[])
}
Add(Dir,11527604,378,77)
{
}
Add(StrCat,3433397,378,161)
{
 Str2="кАКОС.xlsb"
 link(onStrCat,7610316:doText,[(422,167)(422,209)(366,209)(366,251)])
 link(Str1,11527604:CurrentDir,[])
}

Sub open()
    Dim objXL
    Dim Secur
    Set objXL = CreateObject("Excel.Application")
    objXL.Visible = TRUE
    secur = objXL.AutomationSecurity
    objXL.AutomationSecurity = 1
    objXL.Workbooks.Open replace(Wscript.ScriptFullName,".vbs",".xlsb"),,,,"11111"
    objXL.AutomationSecurity = secur
End Sub