Как программно поставить пароль на файл xls(xlsx)?
есть вот такой вариант, но не работает что не так подскажите
есть вот такой вариант, но не работает что не так подскажите
Код:
#include <file.au3>
$Path = 'excel'; Название папки с Excel файлами
$FullPath = @ScriptDir & '\' & $Path
$XlsFiles = _FileListToArray($FullPath, '*.xls', 1)
For $i = 1 to $XlsFiles[0]
$File = $FullPath & '\' & $XlsFiles[$i]
MsgBox(0,0,$File)
$Exsobj = ObjCreate('Excel.Application'); Запускаем Excel
$Exsobj.WorkBooks.Open($File); Открываем
$Exsobj.ThisWorkbooks.Add.Password='123'
$Exsobj.ThisWorkBooks.Save($File); Сохраняем файл
$Exsobj.Application.Quit; Выходим из Excel
$Exsobj = 0; Освобождаем переменную
Next