VBA Excel,Excel v16“ Application.Visible = False”不起作用

时间:2019-12-16 23:10:30

标签: excel vba

我在Windows 7环境中使用Excel v10创建了一个Excel电子表格。它具有一个加载的窗体,并且它使电子表格不可见,因此您只能看到该窗体。最近,我们已升级到Windows 10和Excel v16。现在,当我运行它时,窗体可以很好地打开,但电子表格也仍然可见! 但是,如果我从VBA编辑器运行它,它就可以完美运行,即表格保持可见,电子表格消失了。我已经尝试了一些修复程序,但是都没有成功。除非通过VBA编辑器,否则命令Application.Visible = False似乎不起作用。这是我的代码:

Sub Workbook_Open()
    With Application
        .Calculation = xlAutomatic
        .CalculateBeforeSave = False
        .ScreenUpdating = False
    End With
    Application.Visible = False
End Sub

Sub Workbook_Close()
    .Calculation = xlAutomatic
    .CalculateBeforeSave = True
End Sub

Private Sub UserForm_Initialize()
    Application.Visible = True
End Sub

Private Sub UserForm_Terminate()
    Workbooks(1).Worksheets(1).Visible = True
    Application.CalculateBeforeSave = False
End Sub

0 个答案:

没有答案