RibbonFehler bei Aufruf von 3.Datei

Vorab: Da ich vermute, dass volti und mumpel mitlesen :
Ich möchte mich noch bei bei euch, Rene und Karl-Heinz, bedanken.
Mit euren Hilfen konnte ich mein Problem mit der EditBox (Ribbon Editbox o. Label per VBA ändern) löschen.
@ KH: Das Code mit dem RefreshRibbon - genial. Vielen herzlichen Dank.
Jetzt hänge ich an folgenden Problem fest:
Der RibbonCode wird primär über ein AddIn geladen.
Alle Aufrufen wie Bearbeiten von Daten / Einbinden von externen Daten / öffnen von 3.Dateien geht ohne Probleme.
Da ich aber die ganze Entwicklung in einer xlsm mache und dann nur per Code hin und wieder das AddIn wegschreibe falle ich jetzt beim Aufruf einer Exceldatei
Aufruf über

If Right(strFile, 3) = "csv" Then
Workbooks.Open Filename:=sPfad & "\" & strFile, Local:=True, delimiter:=";"
Else
Workbooks.Open Filename:=sPfad & "\" & strFile ', Local:=True
End if

über folgenden Fehler: Dieser tritt nicht auf, wenn ich den Code über das AddIn öffne, nur wenn ich es aus der xlsm aufrufen. Beim Öffnen der Datei kommt
- "Das Makro 'GetVisible' kann nicht ausgeführt werden. Das Makro ist möglicherweise in dieser Arbeitsmappe nicht verfügbar oder alle Makros wurden deaktiviert"
und anschliessend
- "Das Makro 'GetEnabled' kann nicht ausgeführt werden. Das Makro ist möglicherweise in dieser Arbeitsmappe nicht verfügbar oder alle Makros wurden deaktiviert"
Und das geht abwechselt so lang, bis in meiner Datei, über das den Code gestartet habe, sämtliche eigenen Ribbons weg sind.
Aus meinem Verständnis heraus versucht ein Event o.ä. die beiden Makros, die Teil meiner Ribbons sind (aufgerufen über)

Public Sub OnRibbonLoad(lpRibbon As IRibbonUI)
Set gobjRibbon = lpRibbon       'globalen Pointer setzen und in einem Namen sichern
ThisWorkbook.Names.Add Name:="MyRibbon", _
RefersTo:=CStr(ObjPtr(lpRibbon)), Visible:=False
End Sub

GetVisible und GetEnabled aufzurufen. Das geht aber nicht, da die ja nicht das sind.
Hat jemand ne Idee, wie ich verhindern kann, das die Fehlermeldung aufpoppt und mir die Ribbons in meine Datei rausfliegen?
Ich hatte die Idee, das kontrolliert wird, ob es sich um die xlsm oder das AddIn handelt und das "was" gemacht wird oder eben nicht.
Aber da bin ich auch gescheitert.
Gruß Markus

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo zusammen,
Das Problem hab ich vermutlich nicht exakt genug beschreiben.
Ich habe mehrere Dateien
1: Meine "Master"-Version. Das ist ne einfache xlsm.
Das ist quasi meine Entwicklungsumgebung, in der ich meine ganzen Codes entwickel und dann, wenn ich einen Schritt weiter bin, die per Knopfdruck abspeichere.
In dem Moment wird die Versionsnummer der Master erhöht, z.b. von 3.15.10 auf 3.15.11, und diese dann als solche weggespeichert. Zusätzlich wird auch gleich eine Version als AddIn weggeschrieben.
Weiterhin wird, wenn ein entsprechendes AddIn vorhanden ist, dieses entladen und das neuen Add-IN wieder eingebunden. Da aber das Addin 3 Reiter hat, hab ich dann auf einmal 6 davon (3x vom xlsm und 3 vom geladenen AddIn). Daher entbinde ich normalerweise das AddIn wieder und arbeite in der xlsm. Ich selbst hab es bisher nicht geschafft, nur im AddIn zu arbeiten und meine Vorschritte zu sichern. Geht wohl auch nicht als Add In.
2:
Diese Datei ruft aber nicht nur Funktionen innerhalb der eigenen Datei auf sondern stellt die Möglichkeit bereit, Dateien, die täglich oder fast täglich auf Servern aktualisiert werden zu öffnen. Das sind so gute 20 verschiedene CSV-Dateien und 10 Exceldateien.
Daher auch der Code
If Right(strFile, 3) = "csv" Then
Workbooks.Open Filename:=sPfad & "\" & strFile, Local:=True, delimiter:=";"
Else
Workbooks.Open Filename:=sPfad & "\" & strFile ', Local:=True
End if
der auf eine CSV hindeutet.
Daher klappt das leider nicht, diesen Dateien noch ein xml-Schema mit getvisible etc zu verpassen.
Das Neuladen der "verlorenen" Ribbons hab ich ja über den RefreshRibbon-Aufruf hinbekommen.
Jetzt muss ich eben irgendwie dem System beibringen, das die Prüfung / Durchlaufen der Ribbons doch bitte schön nicht stattfindet, wenn THISWORKBOOK als Endung ne xlsm ist.
Die Fehlermeldungen über
Application.DisplayAlerts = False
Application.EnableEvents = False
zu blocken geht auch nicht.
Mein einziger Ansatz wäre jetzt, an den Stellen im RibbonCode, der den Fehler auslöst ne Prüfung einzubauen wie 5 Zeilen weiter oben beschrieben :(

Sub test() Dim AF: AF = Chr(34) 'Anführungszeichen" Dim LS: LS = " " 'Leerstelle Dim Aufruf Dim sLW, spfad Dim strfile sLW = "C:" spfad = "\VERZEICHNIS\" strfile = "DATEN.csv" Aufruf = vbNullString Aufruf = Aufruf & "C:\WINDOWS\explorer.exe " Aufruf = Aufruf & sLW Aufruf = Aufruf & spfad Aufruf = Aufruf & strfile Aufruf = Aufruf & "," & LS Aufruf = Aufruf & "delimiter:=" Aufruf = Aufruf & AF & ";" & AF Debug.Print Aufruf Shell Aufruf End Sub

Dim AF: AF = Chr(349 Dim LS: LS = " " If Right(strfile, 3) = "csv" Then Aufruf = vbNullString Aufruf = Aufruf & "C:\WINDOWS\explorer.exe " Aufruf = Aufruf & spfad Aufruf = Aufruf & "\" Aufruf = Aufruf & strfile Aufruf = Aufruf & "," & LS Aufruf = Aufruf & "delimiter:=" Aufruf = Aufruf & AF & ";" & AF Else Aufruf = vbNullString Aufruf = Aufruf & "C:\WINDOWS\explorer.exe " Aufruf = Aufruf & spfad Aufruf = Aufruf & "\" Aufruf = Aufruf & strfile Aufruf = Aufruf & "," & LS Aufruf = Aufruf & "vbNormalFocus" End If Debug.Print Aufruf Shell Aufruf

Beliebteste Forumthreads (12 Monate)

RibbonFehler bei Aufruf von 3.Datei

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

RibbonFehler bei Aufruf von 3.Datei

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread