Скрыть открытую книгу, прежде чем она видна пользователю

Question

я крюк в книге на открытое мероприятие, как это:

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.

Спасибо.

Answer 1

Использование App_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