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

Question

在带有 Excel v.10 的 Windows 7 和 Office 360​​ 中，我创建了一个 Excel 工作簿。工作簿有一个 Form
。当表单加载时，VBA通过命令Application.Visible = False使工作簿不可见；所以，只能看到 Form。如果我通过快捷方式执行工作簿，在目录、VBA 编辑器或 Excel 中单击它（单击打开，然后双击工作簿名称），表单保持可见，工作簿消失。完美的！ 然后，我们使用 Excel v.16 升级到 Windows 10 和 Office 365。现在，当我从快捷方式执行 Workbook 或在其 Directory 中单击它时，


表单打开，但工作簿仍然可见！
如果我从 VBA 编辑器或 Excel 中执行工作簿，工作簿就会像以前一样消失。

那么，Excel Shortcuts 或在其目录中单击它有问题吗？有解决办法吗？

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

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

标签： excelvbaoffice365excel-2016