Имя: Пароль:
1C
1С v8
Как установить пароль на Excel файл?
,
0 xxTANATORxx
 
01.12.20
12:01
Как установить пароль на Excel файл на просмотр? А лучше зашифровать файл паролем. Файл создаю так:

    Попытка
        Excel = Новый COMОбъект("Excel.Application");
    Исключение
        Сообщить(ОписаниеОшибки() + ". " + "Возможно программа Exсel не установлена на данном компьютере!");
        Возврат;
    КонецПопытки;
    
    //Создание книги
    Книга = Excel.WorkBooks.Add();

    //Выбор рабочего листа по номеру
    ТекущийЛист = Книга.WorkSheets(1);

    ТекущийЛист.Cells(5, 5).Value = "555";
    
    //Сохранение книги
    Попытка
        Книга.SaveAs("c:\temp\book.xlsx");
        Книга.Close();
        Excel.Quit();    
    Исключение
        Книга.Close();
        Excel.Quit();
    КонецПопытки;
1 acht
 
01.12.20
12:04
2 zuza
 
01.12.20
12:04
3 xxTANATORxx
 
01.12.20
12:12
(1)(2)спс, читал эти ссылки. Не пойму как это написать на православном 1С коде
4 acht
 
01.12.20
12:15
(3) Посчитать количество параметров метода
5 Garikk
 
01.12.20
12:16
(3) плохо читал, Книга.SaveAs("c:\temp\book.xlsx");  --- в этих ссылках есть описание этого метода
6 Garikk
 
01.12.20
12:17
(0) и вообще <Как установить пароль на Excel файл на просмотр? А лучше зашифровать файл паролем. >

Winrar, 7zip вам в руки, пароль на офисные файлы это профанация
7 xxTANATORxx
 
01.12.20
12:26
(6)политиками запрещают пересылку запароленных архивов
(4)(5) если можно пример, со вчерашнего вечера что-то невзлетает
8 Azverin
 
01.12.20
12:29
(0)
Книга.Worksheets(1).Activate(); //можно и без этой строчки
Книга.ActiveSheet.Protect("пароль");
9 xxTANATORxx
 
01.12.20
14:13
(8)спс, работает, но это защита от изменения. А мне нужно закрыть паролем файл на просмотр, чтобы при открытии спашивал пароль, если ввели верный, то документ можно было бы просмотреть
10 arsik
 
гуру
01.12.20
14:20
(9) сделай запись макроса. ТО же самое потом в 1С сделай.
11 arsik
 
гуру
01.12.20
14:32
+(10) Не. Извиняюсь. Этот функционал в макрос не попадает.
12 arsik
 
гуру
01.12.20
14:37
Книга.Password = password;
Книга.SaveAs(Filename);
13 xxTANATORxx
 
01.12.20
14:42
(12)круто, спасибо большое
со вчера бьюсь.
14 Azverin
 
02.12.20
09:34
(9) соррян.
Пользователь не знает, чего он хочет, пока не увидит то, что он получил. Эдвард Йодан