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.