Vba 在用户可见之前隐藏打开的工作簿

我钩住工作簿打开事件，如下所示：

Private WithEvents App As Application ' For handling events

' Event handler for when THIS workbook is opened.
Private Sub Workbook_Open()
    Set App = Application ' Set App variable so we can add event handlers
    App.EnableEvents = True ' Set raise events = true.
End Sub

' Event handler to handle the event when a new workbook is open (ie. when Raven Viewer exports to a new workbook in excel
Private Sub App_WorkbookOpen(ByVal Wb As Workbook)
    Wb.Windows(1).Visible = False
End Sub

它隐藏了在该电子表格打开时打开的任何工作簿…但在短暂的一秒钟内，用户可以看到它们。我有什么办法可以防止这种情况发生吗

我试图防止当前打开的工作簿失去任何焦点

工作簿未使用VBA打开

---

谢谢。

使用

App\u WindowActivate

似乎对我更有效，但我不确定：

Private Sub App_WindowActivate(ByVal Wb As Workbook, ByVal Wn As Window)
If Not Wn Is ThisWorkbook.Windows(1) Then
    Application.EnableEvents = False
    Wn.Visible = False
    ThisWorkbook.Windows(1).Visible = True
    Application.EnableEvents = True
End If
End Sub

---

Application.screenUpdate=False

inside

App\u WorkbookOpen

可能会这样做。@这是我的第一个调用端口，不起作用。我知道如果我真的让它工作的话，这可能需要一个megahack。你可能会发现这个链接很有用，运气不好，恐怕完全是同一个问题。谢谢