通过快捷方式或从目录执行Excel工作簿会导致Office 365出现问题

通过快捷方式或从目录执行Excel工作簿会导致Office 365出现问题,excel,vba,office365,excel-2016,Excel,Vba,Office365,Excel 2016,在Windows 7和Office 360 with Excel v.10中我创建了一个Excel工作簿。工作簿有一个表单。当窗体加载时,VBA通过命令Application.Visible=False使工作簿不可见;因此,只看到表单。如果通过快捷方式执行工作簿,在目录、VBA编辑器或Excel中单击它(单击“打开”,然后双击工作簿名称),表单将保持可见,工作簿将消失。太好了 然后,我们使用Excel v.16将升级到Windows 10和Office 365现在,当我从快捷方式执行工作簿或在其

Windows 7和Office 360 with Excel v.10中我创建了一个Excel工作簿。
工作簿有一个表单。当窗体加载时,VBA通过命令Application.Visible=False使工作簿不可见;因此,只看到表单。如果通过快捷方式执行工作簿,在目录、VBA编辑器或Excel中单击它(单击“打开”,然后双击工作簿名称),表单将保持可见,工作簿将消失。太好了

然后,我们使用Excel v.16将升级到Windows 10和Office 365
现在,当我从快捷方式执行工作簿或在其目录中单击它时,表单打开,但工作簿仍然可见
如果从VBA编辑器或Excel中执行工作簿,工作簿会像以前一样消失

所以,Excel快捷方式或在其目录中单击它时出现问题?是否有修复程序?

下面的代码是打开表单的初始代码。谢谢你的帮助

Sub Workbook_Open()
    With Application
        .Calculation = xlAutomatic
        .CalculateBeforeSave = False
        .ScreenUpdating = False
    End With
    'Password Protect WorkSheet
    With MainForm
        .Label3 = "Program Name"
        .ProgToRun.Text = Workbooks(1).Worksheets(1).Range("A2")
        ActiveSheet.ListObjects("Table1").ListColumns(1).DataBodyRange.Select
        .Label1 = "Choose a program to run from drop-down menu." & vbCr & _
        "Then, click the " & """Run Selection""" & " button."
        .Label2 = ""
        .BttnYES.Visible = False
        .BttnNO.Visible = False
        .BttnRun.SetFocus
        .Show vbModeless
    End With
    Application.Visible = False
End Sub

请回答您的问题,并包括
工作簿\u Open
事件的代码以及表单的加载方式,或者最好提供一个复制该问题的示例。如果没有再现问题的代码,就很难提供帮助打开工作簿时是否自动启用宏?如果从目录启动,则“工作簿打开”事件是否会自动运行?好的,我添加了代码“如果从目录启动,工作簿打开事件是否会自动运行?”好的,如果我在工作簿打开事件中放入Msgbox并从目录单击,则会给出消息;所以,是的,我认为它正在被执行。