Wie um zu verhindern, dass ActiveX-Ereignisse auslösen in VBA?

Ich bin auf der Suche nach einem besseren Weg zum deaktivieren von ActiveX-Ereignisse auslösen, die in einer Excel-Arbeitsmappe (obwohl dies gilt für alle Office-Anwendungen mit ActiveX-Objekte).

Hoffentlich etwas ähnliches wie Application.EnableEvents = false, aber das funktioniert nicht mit ActiveX.

In dem Beispiel weiter unten ist es trivial, um eine Globale boolean-aber ich habe eine Menge von event-Handlern für meine ActiveX-Objekte, und es wäre immens einfacher, für etwas, das ich universell anwenden, um vorübergehend deaktivieren Sie die ActiveX-Ereignisse. Ich nicht wirklich wollen, fügen Sie eine if - /exit-sub-Anweisung für jede einzelne dieser Methoden.

Um dieses problem zu demonstrieren, erstellen Sie ein ActiveX-combobox in einem Arbeitsblatt und fügen Sie den folgenden, um das Blatt-Modul

Public initializingContent As Boolean 
Private Sub intializeAllActiveXContent()

    'this doesn't apply to activeX events :'(
    Application.EnableEvents = False

    'this could work but is not really elegant
    'change this to false to show my problem in 
    'the intermediate window (called not once but twice)
    initializingContent = True

    ComboBoxTest.Clear

    ComboBoxTest.AddItem ("item1")
    ComboBoxTest.AddItem ("item2")
    ComboBoxTest.AddItem ("item3")

    'select the top value in the box
    ComboBoxTest.value = "item1"

    initializingContent = False

    Application.EnableEvents = True

     End Sub

Private Sub ComboBoxTest_Change()
    'I really don't want to have to wrap EVERY single ActiveX method
    'with something like this for a whole variety of reasons...
    If initializingContent Then Exit Sub

    Debug.Print "do stuff I don't want to happen when intializeAllActiveXContent() runs " & _
        "but I do when user changes box"
         End Sub

+ 1 Gute Frage! Sie hatte mir überlegt eine Weile 🙂
Mein code ist ein Beispiel für Excel. Die Logik bleibt die gleiche für MS Word/PowerPoint. Nicht sicher über MS Access/Projekt/Ausblick obwohl.

InformationsquelleAutor enderland | 2013-10-09

4

Warum nicht deaktivieren? Dass die Möglichkeiten, die Sie nicht haben, um sorgen über Ihre individuellen codes als auch.

Versuchen, diese
```
Sub DisableActiveXControls()
    Dim ws As Worksheet
    Dim OLEobj As OLEObject

    Set ws = ThisWorkbook.Sheets("Sheet1")

    With ws
        For Each OLEobj In ws.OLEObjects

        If TypeOf OLEobj.Object Is MSForms.ComboBox Then
            OLEobj.Enabled = False
        End If
        Next OLEobj
    End With
End Sub
```
Vorher - /Nachher-ScreenShots:

- FOLLOW AUS DEN KOMMENTAREN:

Außerdem stellt sich heraus, das bricht harte Kern auf Objekte, die gruppiert werden, aber ich kann die Gruppierung aufheben Objekte (Sie sind nicht mehr in "Sheet1" festgelegt.OLEobjects" Schätze ich mal). Ich weiß noch nicht wirklich wie dieses, da es stützt sich auf diese Tatsache und es wird Zeiten geben, wenn ich tun wollen, group-Objekte.. – enderland 17 Minuten vor

Auf deaktiviert ActiveX-Steuerelemente in einer Gruppe, die Sie nicht brauchen, um die Gruppierung aufheben. Verwenden Sie diesen code. Der folgende code deaktiviert die Comboboxes in einer Gruppe.
```
Sub Disable_ActiveX_Controls_In_A_Group()
    Dim shp As Shape, indvShp As Shape
    Dim OLEobj As OLEObject
    Dim ws As Worksheet

    Set ws = ThisWorkbook.Sheets("Sheet1")

    For Each shp In ws.Shapes
        If shp.Type = msoGroup Then
            For Each indvShp In shp.GroupItems
                Set objOLE = indvShp.OLEFormat.Object

                If objOLE.progID = "Forms.ComboBox.1" Then _
                objOLE.Enabled = False
            Next
        End If
    Next
End Sub
```
- Hmm. Also das ist ein interessanter Ansatz, aber leider habe ich einige Objekte, die nicht combo-Boxen, die variabel zu aktivieren/deaktivieren Staaten zu beginnen - könnte ich wahrscheinlich bauen a dictionary of alle Namen und wiederherstellen, aber das scheint ein bisschen dumm zu. Gibt es eine einfache Möglichkeit zu überprüfen, ob ein OLEobject ist eine combobox? Typename() und .Geben Sie beide wieder den gleichen (?). Ich schwöre, ich habe dies vor, aber irgendwie kann ich mich nicht erinnern, wie...
- +1 mit meinem edit - If TypeOf OLEobj.Object Is MSForms.ComboBox. Auch stellt sich heraus, das bricht harte Kern auf Objekte, die gruppiert werden, aber ich kann die Gruppierung aufheben Objekte (Sie sind nicht mehr in "Sheet1" festgelegt.OLEobjects" Schätze ich mal). Ich weiß noch nicht wirklich wie dieses, da es stützt sich auf diese Tatsache und es wird Zeiten geben, wenn ich tun wollen, group-Objekte..
- Ich Schnitt es mit dieser Zeile code 😛 und dann sah ich deine Bearbeitung. In der Tat habe ich dir ein link zu meinem anderen post HIER
- BTW, Sie haben Sie nicht zum aufheben der Gruppierung der Formen. Sie können direkt deaktivieren 😉 ich habe den post oben aktualisiert
- Hm. Das ist schlimmer als die DLL-Hölle, wie ich glaube, ich bin zu haben, um wickeln Sie jede einzelne meiner _change() Methoden, welche updates die anderen Textboxen in eine Art Schutz, um nicht eine Kettenreaktion starten. Denn selbst wenn ich das aktivieren/deaktivieren in der anfänglichen Bevölkerung von der combo-Boxen, jedes mal bekommt man verändert die auf anderen werde ich kick den Prozess wieder ab... so wird jeder haben, um ein if isUpdating then exit sub - Methode, gefolgt von isUpdating = true (oder aktivieren/deaktivieren Sie alle ComboBoxes auf dem Blatt, wie Sie es vorschlagen)
- Ja, auch wenn die combo deaktiviert ist und Sie versuchen, zu schreiben, um eine combo aus einem Textfeld, das change-Ereignis ausgelöst wird.
- lassen Sie uns weiter, diese Diskussion im chat
- Mein Verständnis von der ursprünglichen Frage (das ist die gleiche Frage, die mich hierher gebracht): Wie ist die switch-off-Veranstaltungen auf ein OLEObject. Es sei denn, ich bin fehlt etwas, ich sehe nicht, eine Antwort. Aktivieren Sie nicht tun, es auf den Etiketten zum Beispiel. Ich hätte twigged dieser durch das Lesen MS' brillante Dokumentation, die, mehr oder weniger, erklärt, dass Sie die Enabled-Eigenschaft ist true, wenn das Objekt aktiviert ist.
InformationsquelleAutor Siddharth Rout
2

Ich weiß, das ist wirklich alt. Aber wer sieht dies (Erster Treffer bei google) vielleicht möchten Sie eine einfache Antwort:

Können sagen, Sie haben ein Eigenes Sub ActiveXControl_Change() wird immer aufgerufen, während eine Anwendung.EnableEvents = False und Sie es wollen, überspringen Sie diese einfach gehen:
```
Private Sub ActiveXControl_Change()
If Application.EnableEvents = True Then
'enter you code here

End If
End Sub
```
InformationsquelleAutor Waz J
1

bin auf diesen Beitrag bei der Suche für ein ähnliches Problem. Entschied ich mich die Antwort hier gepostet würde nicht passen, meine situation, und kam mit etwas anderes. Mein Ansatz kann sinnvoll sein, hier auch.

In meiner Arbeitsmappe habe ich ein set von 20 (Activex) - Kontrollkästchen. Diese im wesentlichen filter on/off 20 Produktkategorien werden in einem Bericht. Es ist eine routine, die ausgeführt wird, jedes mal, wenn eine dieser Checkboxen geändert wird, einfach durch den Aufruf der routing von der CheckBox_Click routine.

Dann habe ich auch ein Kombinationsfeld wählt verschiedene Gruppen dieser Checkboxen. Das Problem ist, dass wenn JEDER von den 20 Checkboxen (un), ausgewählt von der combobox-code, die Berechnung routine ausgelöst wird.

Was ich wollte, war zum ausführen der Berechnung routine nur EINMAL am Ende der combobox, aber habe es immer noch funktioniert wenn ich eine einzelne checkbox manuell.

Meine Lösung - setzen Sie sich in einen TRUE/FALSE-code in irgendeiner Zelle auf einer versteckten Arbeitsblatt, irgendwo ist es aus dem Weg und nicht stören.

Dann die CheckBox_Click code wird (für jeden der 20 Checkboxen):
```
Private Sub CheckBox6_Click()
If (Sheets("Data").Range("G60")) Then
    Call RangeFind
End If
End Sub
```
Den combobox-code ändert diese gleiche Zelle, entsprechend:
```
Private Sub ComboBox28_Change()

Sheets("Data").Range("G60").Value = False
Select Case Sheets("Data").Range("F50").Value
    Case "1"

    CheckBox1.Value = False
    CheckBox2.Value = False
    CheckBox3.Value = False

....

End Select

'  This turns the checkboxes back on
Sheets("Data").Range("G60").Value = True

'  This now actually calls the calculation ONCE
Call RangeFind

ActiveSheet.Range("A1").Activate

End Sub
```
Cheers,

Michael

InformationsquelleAutor Michael Fox

Hier ist eine option:

Private Sub ToggleButton1_Click()
    If Application.EnableEvents = True Then
        'This next line forces at least 1 of the toggle's to be selected at all 
        'times; remove it from all routines if this is not desired.
        If Not ToggleButton1.Value Then ToggleButton1.Value = True
        Application.EnableEvents = False
        ToggleButton2.Value = False
        ToggleButton3.Value = False
        Application.EnableEvents = True
    End If
End Sub

Private Sub ToggleButton2_Click()
    If Application.EnableEvents = True Then
        If Not ToggleButton2.Value Then ToggleButton2.Value = True
        Application.EnableEvents = False
        ToggleButton1.Value = False
        ToggleButton3.Value = False
        Application.EnableEvents = True
    End If
End Sub

Private Sub ToggleButton3_Click()
    If Application.EnableEvents = True Then
        If Not ToggleButton3.Value Then ToggleButton3.Value = True
        Application.EnableEvents = False
        ToggleButton1.Value = False
        ToggleButton2.Value = False
        Application.EnableEvents = True
    End If
End Sub

InformationsquelleAutor Allen

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.