Всем привет, хочу программно запоролить книгу Есxel, для этого я ее программно открываю, задаю пароль и закрываю, выглядит примерно так:

Попытка
Excel    = Новый COMОбъект("Excel.Application");
WB    = Excel.Workbooks.Open(ИмяФайла);
WB.Protect(Пароль);
WB.Close(0);
Исключение
Сообщить(ОписаниеОшибки());
КонецПопытки;

Как я понял, у метода .Protect() есть еще какие параметры, но ни как не могу понять какие (ну кроме пароля), весь vba help облазить, ни черта не понял, хелпаните народ.

хелп тебе, хелп!

>весь vba help облазить

разрешаю облазить msdn по объектной модели экселя

у меня так
Protect(1, 1, ПарольНаРедактированиеДокумента)

(1),(2) Облазил*

(3), Ошибка при вызове метода контекста (Protect): Произошла исключительная ситуация (0x80070057)

Что то не хочет...

(4) никуа не верю

(6) придется

Sub Protect([Password], [Structure], [Windows])
ActiveWorkbook.Protect Structure:=True, Windows:=True

(8) На 1Совском языке это как выглядит?

WB    = Excel.Workbooks.Open(ИмяФайла);
WB.Protect([Пароль],[true],[true]);

так?

по идее
WB    = Excel.Workbooks.Open(ИмяФайла);
WB.Protect(Пароль,истина,истина);
еще покури
Sub SaveAs([Filename], [FileFormat], [Password], [WriteResPassword], [ReadOnlyRecommended], [CreateBackup], [AccessMode As XlSaveAsAccessMode = xlNoChange], [ConflictResolution], [AddToMru], [TextCodepage], [TextVisualLayout], [Local])

(11) Ошибки нет, но не паролит...

Protect запрещает удалять создавать и переименовывать листы, а тебе что нужно?

опана, мне нужно пароль на книгу поставить...

казалось бы причем тут пароль...

Тогда что вместо протекта? И какие параметры?

както так WB.SaveAs(Имяфайла,,Пароль)

(17) Ошибка при вызове метода контекста (SaveAs): Произошла исключительная ситуация (Microsoft Excel): Метод SaveAs из класса Workbook завершен неверно
.....

попробуй  WB.SaveAs(Имяфайла,51,Пароль,,Ложь)

(19) Твоюж мать, сработало, а 51 это что за параметр такой странный?)

51 это тип файла xlOpenXMLWorkbook

синтаксис помощник по ВБА открывается в экселе комбинацией АЛЬТ+Ф11 а потом Ф2

(22) еще раз спасибо!