VPF::Excel protect - Форум программистов

Darksquall

Дата 29.10.2004, 12:48 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 326
Регистрация: 22.1.2004
Где: Москва

Репутация: 1
Всего: 4

Ребят, кто знает может.
Как защитить лист в Ексель через OLE.
С вордом все нормально, а ексель при попытке поставить защиту

Код


        ExcelApplication1.Connect;
        ExcelApplication1.Visible[lcid]:=true;
        Form1.ExcelApplication1.WorkBooks.Open(Vremkat+Namefile,EmptyParam,EmptyParam,
        EmptyParam,EmptyParam, EmptyParam,EmptyParam,EmptyParam,
        EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,lcid);
        W := Form1.ExcelApplication1.WorkBooks.Item[1];
        ExcelWorkBook1.ConnectTo(ExcelApplication1.ActiveWorkbook);
        ExcelWorksheet1.ConnectTo(ExcelWorkbook1.WorkSheets[1] as _WorkSheet);
        
        ExcelWorksheet1.Protect('1',True,True,True);

ошибку выдает в последней строке, использую компонент со вкладки серверы.

ошибка OLE Exception with message OLE error 800A03EC
:stena

--------------------

www.bankcards.su

Akella

Дата 7.12.2004, 10:27 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 2
Всего: 329

1. Может быть такое: в Uses пишешь Excel97, а в системе установлен XP или 2003,
2. Я бы защел в Excel, начал запись макроса защитил лист, зпкончил запись макроса, посмотрел бы, что получилось, перенес код в Delphi.
3. попробуй использовать LOCALE_USER_DEFAULT
WorkSheet.Activate(LOCALE_USER_DEFAULT);//активираем лист
вместо lcid, или ставь просто ноль ExcelApplication1.Visible[0]:=true, но тогда нужно пересмотреть всеь код для замены

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: ActiveX/СОМ/CORBA \| Следующая тема »