[1.16] Disable Autorun on Excel

[tobya]

Word autorun is now disabled by default

• AutoMacroRun now disabled by default, new parameter to switch on #205

Shoudl also be possible to disable on Excel.

Raised by

• Macro execution #190
• Macro execution on startup #195

[tobya]

@Darthmineboy Can you provide me with an xls spreadsheet that has an autorun macro.

I dont use excel much.

[Darthmineboy]

@tobya for security it may be better if I explain how, instead of sharing a macro document :)

1. First enable developer ribbon, go to File > Options > Customize Ribbon > Enable Developer ribbon
2. Then go to developer ribbon and select view code
3. To ThisWorkbook I added Workbook_Open sub that overwrites a cell

Private Sub Workbook_Open()
    Cells(2, 1).Value = "Macros are enabled"
End Sub

5. Save file as Excel Macro-Enabled Workbook
6. Close file and open, after enabling macros (security warning) the 2nd row should show "Macros are enabled"
7. Docto however runs the macro (without security warning) docto -XL -f macro.xlsm -OX .pdf -T xlpdf

[hi-ko]

Macros should be disabled not only for Excel, but also for PPT (or any other Office program).
Unless docto disables macros by default for Excel and PowerPoint, I would strongly advise against using docto for file formats other than Word files (unless you are only converting files that you have created yourself from scratch).

[tobya]

Suggested code to fix this.

var
  Excel, Workbook: OleVariant;
begin
  Excel := CreateOleObject('Excel.Application');
  try
    Excel.Visible := False;

    // IMPORTANT: Disable events BEFORE opening the workbook
    Excel.EnableEvents := False;

    // Optional: Open in safe / read-only mode
    Excel.AutomationSecurity := 3;  // msoAutomationSecurityForceDisable

    Workbook := Excel.Workbooks.Open('C:\MyFile.xlsx');

    // do your work…

    Workbook.Close(False);
  finally
    // Restore settings
    Excel.EnableEvents := True;
    Excel.AutomationSecurity := 1;  // msoAutomationSecurityLow
    Excel.Quit;
  end;
end;

[tobya]

• implemented in [1.16]Excel multi sheet #239