VBAProject-property

Renvoie a parsed TXLSVBAProject pour un classeur XLS classique qui contient un stockage VBA. Le projet expose le nombre de modules et le texte source des modules via TXLSVBAModule items If the workbook has no VBA project, the property returns nil Use HasVBAProject / VBADefined to test for the raw payload, LoadVBAProjectFromFile and SaveVBAProjectToFile to move the preserved OLE storage payload, and ClearVBAProject to remove it from the workbook

Project := Workbook.VBAProject;
if Project <> nil then
  ModuleText := Project[1].SourceCode;