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

MItornaDOS

Дата 24.2.2008, 10:34 (ссылка)

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

Загрузка ...

Шустрый

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

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

Нужно ввести пароль на открытие/изменение данных при работе с Excel

работаю с екселём так:

Код

var ex:variant;
    s:string;
begin
  ex:=CreateOleObject('excel.application');
  ex.Visible:=False;
  Ex.DisplayAlerts:=False;
  ex.WorkBooks.Open('d:\test.xls');
  s:=VarToStr(ex.ActiveWorkBook.ActiveSheet.Cells.Item[1,3]);
  ex.ActiveWorkBook.ActiveSheet.Cells.Item[1,3]:='БУГОГА';
  ex.Application.Save;
  ex.Application.Quit;
  ex:=UnAssigned;
end;

Помогите плз ввести пароль...
и ещё, если можно как его изменять, ставить и т.п.

kemiisto

Дата 24.2.2008, 13:02 (ссылка)

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

Загрузка ...

Дикий Кот. =^.^=

Награды: 1

Профиль
Группа: Участник Клуба
Сообщений: 3292
Регистрация: 29.7.2007

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

Цитата(MItornaDOS @ 24.2.2008, 10:34

)

Нужно ввести пароль на открытие/изменение данных при работе с Excel

Что конкретно нужно защитить: весь документ, лист, ячейку??? Насколько я понял - весь документ. Если так, то:

Код


var ex:variant;
    s:string;
begin
  ex:=CreateOleObject('excel.application');
  ex.Visible:=False;
  Ex.DisplayAlerts:=False;
  ex.WorkBooks.Open('d:\test.xls');
  s:=VarToStr(ex.ActiveWorkBook.ActiveSheet.Cells.Item[1,3]);
  ex.ActiveWorkBook.ActiveSheet.Cells.Item[1,3]:='БУГОГА';
  //пароль на открытие
  ex.ActiveWorkBook.Password := 'OpenPass';
  //пароль на изменение
  ex.ActiveWorkBook.WritePassword := 'EditPass';
  //сохраняем
  ex.ActiveWorkBook.Save;
  ex.Application.Quit;
  ex:=UnAssigned;
end;

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

XMPP-канал.

Unit testing isn't enough. You need static typing.

Пей, кури, пиши на си! smile

MItornaDOS

Дата 24.2.2008, 15:43 (ссылка)

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

Загрузка ...

Шустрый

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

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

Немножко не так, защита уже стоит. Нужно открыть документ, оно спросит пароль, ввести пароль отредактировать данные и выйти
как мне ввести пароль?

kemiisto

Дата 24.2.2008, 16:09 (ссылка)

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

Загрузка ...

Дикий Кот. =^.^=

Награды: 1

Профиль
Группа: Участник Клуба
Сообщений: 3292
Регистрация: 29.7.2007

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

Так бы и сказал.
Вместо:

Код


ex.WorkBooks.Open('d:\test.xls');

пиши:

Код


ex.WorkBooks.Open('d:\test.xls', Password := 'OpenPass', WriteResPassword := 'EditPass');

P.S. Вот еще что. Маленький совет на будующее. Есть такая штука Excel (Word, ...) Developer Reference. открываем Excel (Word, ...) 2007, включаем вкладку Разработчик, на этой вкладке нажимаем кнопочку Visual Basic. В VB жмем F1, вводим запрос (например, Open) и пожалуйста! Находим то, что нужно, внимательно изучаем.
Точно сказать не могу, но по моему в 2003 тоже есть этот самый Developer Reference!

Добавлено через 1 минуту и 59 секунд
Вот это

Код


  //пароль на открытие
  ex.ActiveWorkBook.Password := 'OpenPass';
  //пароль на изменение
  ex.ActiveWorkBook.WritePassword := 'EditPass';

можно убрать.

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

XMPP-канал.

Unit testing isn't enough. You need static typing.

Пей, кури, пиши на си! smile

MItornaDOS

Дата 25.2.2008, 11:21 (ссылка)

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

Загрузка ...

Шустрый

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

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

Цитата(kemiisto @ 24.2.2008, 16:09

)

открываем Excel (Word, ...) 2007

ненавижу MS Office 2007

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