Workbook_Open-sub wird nicht ausgeführt, wenn ich die Arbeitsmappe öffnen?

Diesem Programm soll eine Schaltfläche erstellt werden, die der Benutzer drücken kann, aktivieren Sie einen anderen sub. Aus meinen Recherchen online, es scheint, dass der sub unten aktivieren soll beim öffnen der Arbeitsmappe, aber ist es das nicht?

Was mache ich falsch?

Option Explicit
Private Sub Workbook_Open()
Dim btn As Button
Dim rng As Range
With Worksheets("Sheet1")
    Set rng = .Range("B2:C2")
        Set btn = .Buttons.Add(rng.Left, rng.Top, rng.Width, rng.Height)
    With btn
        .Caption = "To begin the program, please click this button"
        .AutoSize = True
        .OnAction = "TableCreation1"
    End With
End With
End Sub
Haben Sie das Modul gestellt, in die ThisWorkbookObjekt in der VBE, im Gegensatz zu einer Modul-oder Worksheet-Objekt? Denn wenn ich das Tat, es funktionierte für mich. Um Ereignisse für die Arbeitsmappe zu Feuer-code hat, gibt es in der ThisWorkbook Modul. Gleiche Arbeitsblatt für Ereignisse der Ebene, der code muss in jedem Arbeitsblatt-Objekt in die VBE.
Ich denke, Sie sollten Ihren Kommentar auf eine Antwort.

InformationsquelleAutor TheTreeMan | 2012-07-06

  1. 28

    Stellen Sie sicher, dass Ihre Private Sub Workbook_Open() Unterprogramm eingefügt wird innerhalb der Diese Arbeitsmappe Objekt und nicht in einem Modul, Formular oder Blatt-Objekt.

    Danke!!! Es hat geklappt! 🙂
    Konnte Sie markieren mich als die richtige Antwort dann? 🙂 (Ich versuche die Fragen zu beantworten, die vollen Zugriff zu erhalten auf der Website!)

    InformationsquelleAutor danielpiestrak

  2. 5

    Interessant.
    Im Jahr 2009 einen Konflikt mit der bedingten Formatierung der Platte zu öffnen ist beschrieben, wie in
    vbforum post.

    Es scheint, dass dieser bug immer noch existiert in excel und verhindert, dass die workbook_open Ereignis wird gefeuert.
    Ich habe eine Arbeitsmappe (alte XLS-binary-format), die einfach nicht ausgelöst wird, das Ereignis in Excel 2003 und 2007, aber nicht in 2013. Ich löschte alle bedingten Formatierungen aus dem ersten Arbeitsblatt, konnte aber immer noch nicht die workbook_open Prozedur ausgeführt, bei älteren Excel-Versionen.

    Einen Workaround, ich benutze in verteilten Arbeitsmappen die Verwendung einer lokalen Variablen und einem zweiten Ereignis in der Arbeitsmappe wie folgt:

    ''
' private variable
Private wbOpenEventRun as Boolean

''
' procedure to be called by excel when workbook opens
Private Sub Workbook_Open()
    wbOpenEventRun = true
    ' perform tasks
End Sub

''
' the selection change event fires usually.
' performance is not reduced
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    If Not wbOpenEventRun Then Workbook_Open
    ' perform tasks in reaction of selection change events, if required
End Sub
    Dirty hack... Hut ab! Diese Lösung scheint zu funktionieren!! Ich hatte das gleiche problem, aber das scheint zu nageln! Danke!!!!!

    InformationsquelleAutor DrMarbuse

  3. 2

    Ich weiß, dieser Beitrag wurde inaktiv für eine Weile, aber ich kämpfte stundenlang um dieses problem zu lösen. Es ist die merkwürdigste Sache, aber ich habe schließlich gemerkt, dass eins meiner Arbeitsblätter wurde in der "Seiten-Ansicht"... und sobald ich es in "Normal" meine Workbook_Open () - Funktion angefangen zu arbeiten wieder normal. SEHR SELTSAM - definitiv ein Excel-bug... nur froh, dass ich endlich gelöst... Hoffe es hilft jemandem...

    InformationsquelleAutor Shawn

  4. 1

    Die Lösung, die ich fand, war, läuft der code unten und dann die "Öffnen" - Veranstaltung gearbeitet.

    Sub EventRestore()

    Application.EnableEvents = True

End Sub

    InformationsquelleAutor Nazim

Schreibe einen Kommentar