从Outlook中的宏打开时，如何防止Excel打开用户窗体？

Question

我正在尝试在Outlook中创建一个宏来打开excel中的文件并从该文件运行一个过程。这段代码很漂亮......

Dim ExApp As Excel.Application
Dim ExWbk As Workbook
Set ExApp = New Excel.Application
Set ExWbk = ExApp.Workbooks.Open("D:\Control Verification\Controls Verification Updated.xlsm")
ExApp.Visible = False

ExWbk.Application.Run "Module1.Email_All"

ExWbk.Close SaveChanges:=False

当有人打开此工作簿时，我会自动显示userform以允许用户选择不同的内容，但是当我从Outlook打开它时，我不希望显示此userform。

我只需要访问userform中不需要任何选择的不同过程。有任何想法吗？感谢。

Answer 1

使用Application.EnableEvents Property for disabling the Events before you open the workbook

实施例

ExApp.EnableEvents = False 
ExApp.Workbooks.Open("Path") ' < Your code here
ExApp.EnableEvents = True