Необходимо программно в модуль книги добавить макрос запрещающий возможность сохранения изменений. Делаю так:
Код:
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 вижу что нужный код добавился, но после закрытия файла он там не сохраняется(