[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).CodeModule.AddFrom String(...) в редакторе VBA вижу что нужный код добавился, но после закрытия файла он там не сохраняется(