Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2008.01.27;
Скачать: CL | DM;

Вниз

ExcelWorkbook.WriteReserved   Найти похожие ветки 

 
Ega23 ©   (2007-12-28 11:50) [0]

Ситуация.
Ставлю пароль на Excel-документ (пароль на запись). Т.е., судя по описанию, терминальный флаг WriteReserved должен быть True
Открываю документ:

 try
   wb := XL.Workbooks.Open(OpenDlg.FileName, EmptyParam, True, EmptyParam,
                           "**************", EmptyParam, EmptyParam, EmptyParam,
                           EmptyParam, EmptyParam, EmptyParam, EmptyParam,
                           EmptyParam, 0);

   if wb.WriteReserved[0] then
   //if wb.ReadOnly[0] then
     Memo1.Lines.Add("WriteReserved")
   else
     Memo1.Lines.Add("Not WriteReserved");
 finally
   wb := nil;
 end;


Предполагается, что я его открываю только на чтение (выделено True).
Если посмотреть, то wb.ReadOnly[0] - действительно выполняется (т.е. сам workbook действительно открыт только для чтения).
Но. wb.WriteReserved[0] почему-то false.

В чём может быть проблема?


 
Ega23 ©   (2007-12-28 11:54) [1]

Причём.
wb := XL.Workbooks.Open(OpenDlg.FileName, EmptyParam, True, EmptyParam,
                          "**************", "writepassword", EmptyParam, EmptyParam,
                          EmptyParam, EmptyParam, EmptyParam, EmptyParam,
                          EmptyParam, 0);


если в качестве writepassord поставить реальный пароль, то тогда терминальный флаг WriteReserved действительно становится True



Страницы: 1 вся ветка

Текущий архив: 2008.01.27;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.015 c
2-1199197735
{RASkov}
2008-01-01 17:28
2008.01.27
Сетевые подключения и приложения


2-1198423011
batya-x
2007-12-23 18:16
2008.01.27
изменения в реестре


15-1198078227
Свой
2007-12-19 18:30
2008.01.27
Помогите с настройками delphi 2005 и IIS и asp.net


15-1198042160
Pazitron_Brain
2007-12-19 08:29
2008.01.27
Какие ресурсы/журналы вы читаете


15-1197976254
niKo
2007-12-18 14:10
2008.01.27
только не предлагайте проверить