Office: Code während der Laufzeit ändern

Hallo allerseits,

wahrscheinlich will ich von hinten durch die Brust ins Auge - also gaaaanz umständlich etwas basteln.

Ich habe eine XL-Tabellenvorlage erstellt, die beim Start ein Formular anzeigt (Sub Workbook_Open), welches nach Auswahl einer Option eine Textdatei öffnet und diese Daten in diese gleiche Tabellenvorlage einfügt. Diese XL-Datei wird dann per Email verschickt.

Das Problem ist, dass beim Öffnen der XL-Datei auch immer das Auswahlformular angezeigt wird. Das wird aber nicht benötigt, da das Formular nur zum Erstellen der Datei verwendet wird.

Ist es möglich zur Laufzeit Formulare und VB-Code aus einer XL-Datei zu entfernen oder zumindest zu ändern?


Oder habe ich einen komplett falschen Ansatz und sollte XL-Tabellenvorlage und Formular/Funktion "Textdatei_kopieren" voneinander trennen und z.B. nach "Personl.xls" verschieben?

Gruß
Peter

:)

 

hiho

hier ein Link
mit relevanten Folgelinks
vba1.de -&nbspDiese Website steht zum Verkauf! -&nbspInformationen zum Thema vba1.

• Makro per Makro einfügen/entfernen
• Kommentare in Makros entfernen
• Makro per Makro einfügen
• kopiert ein Modul in eine neue Exceldatei
• alle VBA-Komponenten dieser Mappe in neue Datei exportieren
• alle Module und UserFormen entfernen
• komplett jeden VBA-Code einer Exceldatei löschen
• prüfen ob VBA-Projekt einer Exceldatei geschützt ist
• alle Verweise einer Exceldatei auflisten

 

Danke, das klappt wunderbar.


Wie kann ich prüfen, ob ich als ActiveWorkbook eine XLT-Tabellenvorlagedatei geöffnet habe oder ob ich eine XLS-Datei (erstellt aus Vorlagendatei) geöffnet habe?


Hintergrund ist, dass ich vermeiden möchte meinen Quellcode zu löschen, wenn ich die Vorlagendatei zum Testen geöffnet habe.

 

hiho

bei workbook_open

abfragen

if right(activeworkbook.name,3)="xlt" then
msgbox " bitte nicht als Vorlage öffnen, sondern wählen sie im Menü........."
activeworkbook.close savechanges:=false
exit sub
end if

oder so ähnlich
dann kann die xlt nicht verändert werden.
wenn Du diese bearbeiten möchtest mit gedrückter shift Taste öffnen (Makros werden dann deaktiviert)

ist jetzt aber nicht getestet, müsste aber so ähnlich funktionieren.

 

Ich habe in der Hilfe folgende Lösung gefunden:

ActiveWorkbook.FileFormat = xlTemplate
oder
ActiveWorkbook.FileFormat = xlWorkbookNormal

 

hiho

oder so *Smilie, finde ich auch als bessere Lösung, danke für den Hinweis!

 

Das funktioniert aber nur, wenn in den Ordneroptionen unter Ansicht das Häckchen für "Erweiterungen bei bekannten Dateitypen ausblenden" nicht gesetzt ist. Da hab ich auch schon öfters Probleme mit gehabt.

 

Hallo Demian

Nein, xlt
wird auch wenn Erweiterungen bei bekannten Dateitypen ausblenden eingeschaltet ist angezeigt (Standard)
zumindest bei Excel2003 Sp3 und WinXp Sp3

Nur wenn die normale Datei z.B mit dem Namen Irgendwasxlt.xls vorliegt
würde es zu Problemen kommen
deshalb habe ich ja geschrieben

 

Moin Chris,

das sollte jetzt kein Vorwurf dir gegenüber sein. Wollte es nur erwähnen, da ich mit sowas schon Probleme hatte. Dass das jetzt für xlt nicht so ist, war mir nicht bewusst.

Bin davon ausgegangen, dass alle Microsoft-Dateiendungen "bekannte" Dateiendungen sind *grins Insofern mein Fehler, dass ich nicht vorher geguckt hab.

Sorry.

Gruß
Demian