Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
608to612
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
608to612
608to612
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Makrowarnung deaktivieren, Makros deaktiviere

Makrowarnung deaktivieren, Makros deaktiviere
11.05.2005 17:16:07
Chris
Hallo Leute,
habe folgendes Problem:
Habe ein Makro geschrieben, welches:
- Daten aus Textdatei in Excel importiert;
- Daten verarbeitet und graphisch darstellt;
- Datei under anderem Namen speichert
- Makros entfernt (alle Zeilen aus Modulen löscht und diese dann beseitigt)
- Datei abermals speichert
- Alles schliesst
Beim wiederholten Öffnen der Datei (von Hand), kommt aber immernoch die Makrowarnung.
Wenn ich auf den Menüpunkt Makros gehe, sind da (wie erwartet) keine drin.
Wie bekomme ich die Meldung weg.
Habe schon versucht über: ThisWorkbook.Application.EnableEvents = False
(vor dem 2.Mal speichern). War nicht der Hit !
Wäre Klasse, falls mir Jemand ne Antwort hätte.
Dankeschön
Chris

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makrowarnung deaktivieren, Makros deaktiviere
11.05.2005 17:44:29
Claus
Es reicht meines Wissens nach nicht, die einzelnen Makros zu loeschen. Du musst die Module entfernen, erst dann koennen keine Makros mehr drin sein.
Claus
AW: Makrowarnung deaktivieren, Makros deaktiviere
11.05.2005 18:23:31
Hajo_Zi
Hallo Chris,
wie Claus schon geschrieben hat auch Modul löschen
Code Modul Löschen
‚ löschen von allen Makros
With ActiveWorkbook.VBProject
.VBComponents.Remove .VBComponents("Modul1")
.VBComponents.Remove .VBComponents("Modul2")
.VBComponents.Remove .VBComponents("Modul3")
‚ löschen von z.B. Workbook_open:
With .VBComponents("DieseArbeitsmappe").CodeModule
.DeleteLines 1, .CountOfLines
End With
‘ löschen von z.B. Worksheet_Activate:
With .VBComponents(ActiveSheet.CodeName).CodeModule
.DeleteLines 1, .CountOfLines
End With
End With
von Steffen D (Herber.de)
Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Home SP2 und Excel Version 2003 SP1.



"Wer Rechtschreibfehler findet, darf sie behalten!"
Dies gilt auch für Bert.
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige