Delphi и макросы в Excel

[LadyInRed]

Необходимо программно в модуль книги добавить макрос запрещающий возможность сохранения изменений. Делаю так:

W:=CreateOleObject('Excel.Application');
W.Workbooks.Open(<имя нужного файла>);
i := W.VBE.ActiveVBProject.VBComponents.Count;
For i:=1 to W.Workbooks[1].VBProject.VBComponents.Count do
   begin
       s:=W.Workbooks[1].VBProject.VBComponents.Item(i).Name;
       If s='ЭтаКнига' then
          begin
    W.Workbooks[1].VBProject.VBComponents.Item(i).CodeModule.AddFromString( 'Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)' + #13 + '   Cancel = True' + #13 + 'End Sub' );
          end;
   end;
   W.Workbooks[1].Save;
   W.Quit;

При построчном прохождении кода после строки W.Workbooks[1].VBProject.VBComponents.Item(i).Cod eModule.AddFromString(...) в редакторе VBA вижу что нужный код добавился, но после закрытия файла он там не сохраняется(

[Sciv]

Оттого, что Вы код в книгу вписали, макрос в списке не появится.

[LadyInRed]

Сообщение от Sciv

Оттого, что Вы код в книгу вписали, макрос в списке не появится.

в коде WorkBook'а появляется:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Cancel = True
End Sub

что нужно сделать чтобы это сохранилось?
Sciv, я понимаю что вопрос наверное очень глупый, но я никогда с этим не сталкивалась =(

[Sciv]

да нет, не такой уж глупый... А вот я, походу, туплю Выскажу предположение, что макрос не сохраняется по причине его же самого - то есть запрещая все изменения в книге, он также запрещает и собственное сохранение... о как!
Философия, однако, какая-то...

Проверить можно просто: сделайте макрос, ничего не запрещающий, просто выводящий сообщение (что-нибудь типа 'Sub Test()' + #13 + ' MsgBox "Привет, мир!"' + #13 + 'End Sub'), и попробуйте сохранить так же, как делаете. Если сохранится - значит, я прав.

[LadyInRed]

Sciv, если я вручную беру и добавляю этот макрос и нажимаю кнопку сохранить он же сохраняется)))

хотя сейчас попробовала добавить другой макрос к книге и он сохранился ... так что Вы видимо правы ... тогда как же запретить дальнейшее сохранение в файле?

[Sciv]

макрос запрещающий возможность сохранения изменений

и

если я вручную беру и добавляю этот макрос и нажимаю кнопку сохранить он же сохраняется

Либо противоречие, либо... Мысль такая, что вручную в экселе Вы сначала сохраняете макрос, а потом всю книгу. Вот во втором случае он срабатывает, а в первом - нет.

С динамическим же макросом из дельфи получается так, что Вы добавляете код в книгу и тут же пытаетесь все сохранить - вот он и отрабатывает положенный ему алгоритм

UPD Развивая мысль, предположу, что нужно использовать что-то типа W.Workbooks[1].VBProject.Save

[LadyInRed]

осталось найти что-нибудь подобное =)

[Sciv]

В редакторе Visual Basic в экселе есть Object Browser (открывается по F2). Там смотрите.

[LadyInRed]

Ничего подходящего я там найти так и не смогла =( нашла выход, но совсем не красивый
программно добавляю следующие макросы

Public FSave As Integer
Private Sub Workbook_Open()
   FSave = 1
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
   If FSave = 1 Then
       Cancel = True
   End If
End Sub

В итоге получается что на текущий момент FSave=0 и сохранение проходит, а при следующем вызове данного файла уже пользователем сработает Workbook_Open() и FSave станет равно 1, что запретит сохранение файла