VBA-Arbeitsblätter vorübergehend deaktivieren()

Question

Ich habe einen VBA-Makro, den ich ausführen muss, um meinen monatlichen Datenabbild von Rohdaten zu initialisieren. Das funktioniert gut.

Zusätzlich habe ich einen Private Sub Worksheet_Change() Schritt, der jedes Mal ausgeführt wird, wenn der Wert einer Zelle geändert wird. Das funktioniert gut.

Mein Problem ist, dass, als mein Initialisierungsmakro viele Änderungen vornimmt, es weiterhin die Private Sub Worksheet_Change() feuert. Gibt es eine Möglichkeit, dass ich es deaktivieren kann, bis die Initialisierung beendet ist?

Answer 1

Sie müssen vorübergehend disabile eventi mit

Application.EnableEvents = False

Und dann setzen Sie ihn zurück zu True Verwendung von Makro Ende Initialisierung

Um sicherzustellen, dass Sie es tatsächlich zurück würden Sie besser diese Einstellungen in Ihrem Initialisierung Makro tun selbst und ein Fehlerhandler verwenden, wie folgt:

Sub InitializingMacro() 

    On Error GoTo ErrHandler 
    Application.EnableEvents = False 

    'Your code here... 

ErrHandler: 
    Application.EnableEvents = True 

End Sub 

Answer 2

application.enableevents = false 

Answer 3

füge ich einen globalen Wert bAlreadyinChange und setzen Sie ihn auf True, dann zu Beginn des Worksheet_Change Ereignis, überprüfen Sie diesen Wert und die Unter verlassen, wenn es bereits gesetzt ist, so ...

Sub Worksheet_Change() 
    if bAlreadyinChange Then Exit Sub 
    bAlreadyinChange = True ' set this so any updates don't fire the event again 
    ' do whatever here 
    bAlreadyinChange = False 
End Sub 

Dies bedeutet, dass ich das change-Ereignis verwenden kann, um alle Aktualisierungen oder Anpassungen, die ich mag, auf das Blatt anzuwenden, ohne das Ereignis rekursiv auszulösen. Obwohl ich keinen Grund, warum Sie nicht das gleiche tun könnte die Application.EnableEvents in Rosetta Beitrag