SOLVED:

I found the solution the next day myself. AutomationSecurity is required.

Here is the code that seems to work for me.
================================================== ==

Application.AutomationSecurity = msoAutomationSecurityByUI

Workbooks.Open Filename:="C:\Users\xl\Documents\aaa.xlsm"