Question

我的“开始工作簿”始终打开，但始终隐藏在我放置所有代码的位置。它在打开时提示用户表单，并在我的计算机上隐藏任何excel。

    Private Sub Workbook_Open()
        Application.ScreenUpdating = False
        Frm_Start.Show vbModeless
        Application.Visible = False
        Application.ScreenUpdating = True
    End sub

有时，代码会打开一本新书（报告书），用户必须能够看到它。我只是这样做：

    MyReportBook.Activate

我可以看到报告（我没有使用application.visible = true）

当用户完成此报告手册后，他可以将其关闭。

我的第一个问题是这个动作正在关闭起始书，我不希望这本书关闭。所以我将这些代码放在我的入门书的Before_Close中（我检查，当用户关闭报告书时，代码开始在开始书中运行!!）：

    If MyUserFormThatMakeReport.visible = true then
        Dim wb As Workbook
        Application.ScreenUpdating = False
        For Each wb In Application.Workbooks
            If wb.Name = "Report Book Name" Then
                wb.Save
                wb.Close
                Application.Quit
            End If
        Next wb
        Cancel = True
        Application.Visible = False
        Application.ScreenUpdating = True
    End if

关闭之后，如果我做了application.visible = true： - 报告书的工作簿仍然开放 - excel书全是灰色的 - 报告书的名称仍然位于窗口的顶部 - 入门书很正常!!!

这是我第一次在论坛上发帖，已经10年了，我在你和其他论坛的帮助下自学。但是这次我被封锁了，请帮助我。

Answer 1

如果您的宏Application.visible的执行变为FALSE，请确保在关闭图书之前将其设置为TRUE。

MyBook.Close没有关闭隐藏Excel窗口

1 个答案: