不启用宏方式打开含宏工作簿

cidanji

WPS中，以不启用宏方式open含宏工作簿后，程序终止不能继续执行open后语句
请问怎么让open后程序继续执行（wps）

1. Sub ss()
   
2.     Application.AutomationSecurity = msoAutomationSecurityForceDisable
   
3.     Workbooks.Open ThisWorkbook.Path & "\含宏簿.xlsm"  'open
   
4.     Application.AutomationSecurity = msoAutomationSecurityByUI
   
5.     MsgBox "继续执行了"
   
6. End Sub

复制代码

具体可以下载附件直接测试

zpy2

用set newapp=createobject("Excel.applucation")
打开一个新的实例试试

cidanji

zpy2 发表于 2024-7-1 07:53
用set newapp=createobject("Excel.applucation")
打开一个新的实例试试

谢谢老师，新建实例可以了，解决了

cidanji

1. Sub WPS禁用宏打开簿()
   
2. Dim newapp As Application, wb
   
3. '不启用宏打开含宏簿
   
4.     Set newapp = CreateObject("Excel.application")
   
5.     newapp.AutomationSecurity = msoAutomationSecurityForceDisable
   
6.     Set wb = newapp.Workbooks.Open(ThisWorkbook.Path & "\含宏簿.xlsm")    'open
   
7. '新建实例下面WPS可执行
   
8.     newapp.AutomationSecurity = msoAutomationSecurityByUI
   
9.     wb.Close False
   
10.     newapp.Quit
    
11.     MsgBox "继续执行了"
    
12. End Sub

复制代码