Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
224to228
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
224to228
224to228
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Globale Makros

Globale Makros
26.02.2003 16:03:23
ThomasP
Hallo!

Ich habe gerade ein Makro für Word programmiert, das mir aufgrund des Dokument-Pfades den Menüpunkt "Speichern Unter" ausblendet. Dazu habe ich das WindowActivate-Ereignis verwendet und das läuft soweit ganz gut. Nun möchte ich dasselbe für Excel machen, doch scheinen hier alle Makros an ein Dokument gebunden zu sein. Oder gibt es auch globale Makros?

Wenn ja, wie kann man darauf zugreifen? Ich möchte den Menüpunkte-Ausblender nämlich automatisch einfügen, indem ich Exel einmal mit einem Dokument aufrufe, das diese Routine enthält. Das ist dieselbe Technik, wie Markoviren sie verwenden, aber keine Sorge, ich möchte keinen Virus machen, sondern wirklich nur diese Installation einer Routine vornehmen. Meine Frage also nun: Geht das überhaupt? Bei Word war ein kein Problem. Folgendes habe ich gemacht:

Sub autoopen()

Dim i As Integer

Set Target = NormalTemplate.VBProject.VBComponents(1).CodeModule
Open ActiveDocument.Path & "\noMenues.txt" For Input As #1
i = 1
Do While Not EOF(1)
Line Input #1, zeile
Target.insertlines i, zeile
i = i + 1
Loop
Close #1
'ActiveDocument.Close
Application.Quit savechanges:=True
End Sub

Das Marko wird aus einer Datei eingelesen und in die Normal.dot übertragen. Das ist alles, dann wird Word gleich wieder geschlossen.

Über Hilfe wäre ich sehr dankbar!

viele Grüße
Thomas.

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Globale Makros
01.03.2003 09:56:23
andre

hallo thomas,
globale makros legst du in eine datei, die beim start von excel automatisch mitgestartet wird, z.b. personl.xlt oder alternativ ein addin einbinden.
statt autooppen besser in diesearbeitsmappe workbook_open verwenden.
gruss andre

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige