1

次のように on workbook open イベントにフックします。

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 で開かれていません。

ありがとう。

4

1 に答える 1

0

を使用 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
于 2013-03-05T18:33:04.053 に答える