|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
excel + delphi + ввод пороля
проблема в следуюшим не как не могу понять почему при таком коде все равно при запуске выскакивает Excel и просит ввести пароль! помогите пожалуйста!
XL:=CreateOLEObject('Excel.Application'); XL.WorkBooks.Open(excel); XL.ActiveWorkbook.Unprotect('1'); |
#2
|
||||
|
||||
А у меня вот при таком коде все нормально открывется без всяких паролей
Код:
procedure TForm1.Button1Click(Sender: TObject); var XL: Variant; begin XL:=CreateOLEObject('Excel.Application'); XL.WorkBooks.Open('e:\excel'); XL.ActiveWorkbook.Unprotect('1'); XL.Visible := True; end; Всегда пишите код так, будто сопровождать его будет склонный к насилию психопат, который знает, где вы живете. |