Вверх ↑
Этот топик читают: Гость
Ответов: 178
Рейтинг: 14
#1: 2019-07-13 15:21:31 ЛС | профиль | цитата
Подскажите как запустить запароленный файл excel

Add(MainForm,2953706,21,105)
{
Width=232
Height=112
}
Add(Button,3883877,203,119)
{
Left=76
Top=29
Width=85
Height=25
Font=[Arial,14,1,0,0]
Ctl3D=0
WinStyle=1
Caption="Пуск"
link(onClick,2401107:doShellExec,[(271,125)(271,132)])
}
Add(WinExec,2401107,308,119)
{
FileName=""C:\\Книга.xlsx""
WorkingDir="C:\\"
}

карма: 0

0
vip
#1.1контекстная реклама от партнеров
Ответов: 8886
Рейтинг: 823
#2: 2019-07-13 16:09:11 ЛС | профиль | цитата
Stalevar, в VBA есть метод в числе прочих: ActiveWorkbook.Unprotect(Password), только как его применить через WinExec не знаю. (Не приходилось паролить книги)
карма: 19

0
Ответов: 263
Рейтинг: 18
#3: 2019-07-14 07:55:06 ЛС | профиль | цитата
Stalevar, вот так попробуй
Add(MainForm,3266432,119,147)
{
Width=339
Height=109
Caption="Открыть Excel с паролем"
}
Add(Button,13534618,175,147)
{
Left=15
Top=35
Caption="Открыть"
link(onClick,11039673:doOpen,[])
}
Add(Edit,10127155,231,77)
{
Left=75
Top=10
Width=235
Text="файл"
}
Add(Edit,12260469,287,77)
{
Left=75
Top=35
Width=235
Text="пароль"
}
Add(ODialog,15434003,175,84)
{
link(onExecute,10127155:doText2,[])
}
Add(Button,1393612,119,84)
{
Left=40
Top=10
Width=30
Caption="..."
link(onClick,15434003:doExecute,[])
}
Add(VBJScript,11039673,231,147)
{
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,10127155:Text,[])
link(password,12260469:Text,[(244,128)(293,128)])
}

Редактировалось 2 раз(а), последний 2019-07-14 08:04:13
карма: 3

0
Ответов: 178
Рейтинг: 14
#4: 2019-07-14 15:17:37 ЛС | профиль | цитата
fox-video
Спасибо, работает.
карма: 0

0
Ответов: 178
Рейтинг: 14
#5: 2019-07-14 16:31:31 ЛС | профиль | цитата
А как определить путь к папке в которой лежит исполняемый файл.

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,[])
}

карма: 0

0
Ответов: 263
Рейтинг: 18
#6: 2019-07-14 16:46:49 ЛС | профиль | цитата
Stalevar писал(а):
А как определить путь к папке в которой лежит исполняемый файл.

Сам же ответ нашел, только путь от имени файла нужно отделить

Add(MainForm,3266432,77,147)
{
Width=339
Height=234
Caption="Открыть Excel с паролем"
link(onCreate,15784535:doPart,[])
}
Add(Button,13534618,147,224)
{
Left=20
Top=50
Caption="Открыть"
link(onClick,11039673:doOpen,[])
}
Add(Edit,12260469,259,154)
{
Left=80
Top=50
Width=235
Text="пароль"
}
Add(VBJScript,11039673,203,224)
{
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,[(216,205)(265,205)])
}
Add(Application,7703,147,91)
{
}
Add(Edit,7610316,203,154)
{
Left=80
Top=15
Width=235
Text="путь"
}
Add(FilePartElm,15784535,147,161)
{
Mode=0
link(onPart,7610316:doText2,[])
link(FileName,7703:AppFileName,[])
}
карма: 3

0
Ответов: 178
Рейтинг: 14
#7: 2019-07-14 17:06:40 ЛС | профиль | цитата
Не успел я не много
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,[])
}


--- Добавлено в 2019-07-14 17:09:54

fox-video, а в скрипте не как не прописать?
Пробовал вот так, не выходит.


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

Редактировалось 2 раз(а), последний 2019-07-14 17:09:54
карма: 0

0
7
Сообщение
...
Прикрепленные файлы
(файлы не залиты)