- #1
F
freestyler96
Bekanntes Mitglied
Themenersteller
- Dabei seit
- 11.01.2005
- Beiträge
- 114
- Reaktionspunkte
- 0
- Ort
- Berlin
Hallo an alle,
ich habe mal wieder ein Problem und hoffe auf eure Hilfe.
Folgendes:
1. Es gibt eine Gesamtdatei für ein Vielzahl von Mitarbeitern, welche per Mail verschickt wird.
2. Wenn der Mitarbeiter die Datei DAS ERSTE MAL öffnet wird ein Makro gestartet:
Private Sub Workbook_Open()
Aufbereitung
End Sub
3. Ist das Makro durchgelaufen wird das Modul gelöscht, da die Funktion nur der ersten Aufbereitung dient:
Sub Modullöschen()
With Application.VBE.ActiveVBProject
For Each VBComponente In .VBComponents
If VBComponente.Type = 1 Then .VBComponents.Remove VBComponente
Next VBComponente
End With
End Sub
4. Hiernach speichert der Mitarbeiter die neue Datei auf seinem Rechner.
Problem:
Wird die neu gespeichert Datei geöffnet ist immer noch unter diese Arbeitsmappe der Aufruf zu Aufbereitung unter
Private Sub Workbook_Open() enthalten was zu einer Fehlermeldung führt.
Frage:
Wie erkläre ich nu meinem begriffsstutzigen Rechner, dass auch diese Prozedur [Private Sub Workbook_Open()] gelöscht werden soll?
Hat bitte jemand einen Vorschlag?
Vielen Dank
Fibo
ich habe mal wieder ein Problem und hoffe auf eure Hilfe.
Folgendes:
1. Es gibt eine Gesamtdatei für ein Vielzahl von Mitarbeitern, welche per Mail verschickt wird.
2. Wenn der Mitarbeiter die Datei DAS ERSTE MAL öffnet wird ein Makro gestartet:
Private Sub Workbook_Open()
Aufbereitung
End Sub
3. Ist das Makro durchgelaufen wird das Modul gelöscht, da die Funktion nur der ersten Aufbereitung dient:
Sub Modullöschen()
With Application.VBE.ActiveVBProject
For Each VBComponente In .VBComponents
If VBComponente.Type = 1 Then .VBComponents.Remove VBComponente
Next VBComponente
End With
End Sub
4. Hiernach speichert der Mitarbeiter die neue Datei auf seinem Rechner.
Problem:
Wird die neu gespeichert Datei geöffnet ist immer noch unter diese Arbeitsmappe der Aufruf zu Aufbereitung unter
Private Sub Workbook_Open() enthalten was zu einer Fehlermeldung führt.
Frage:
Wie erkläre ich nu meinem begriffsstutzigen Rechner, dass auch diese Prozedur [Private Sub Workbook_Open()] gelöscht werden soll?
Hat bitte jemand einen Vorschlag?
Vielen Dank
Fibo