' Basic Professionell Ausgabe 1/93
' WordBasic Tips und Tricks
' Makro: 'MakroKopierenExecuteOnly"
' Vorlage: NORMAL.DOT
' Funktion: Erzeugt nichtlesbare Makroprogramme
' Autor:  Walter Jung  -  Mainz  -  10/93

Sub MAIN
On Error Goto ende
m$ = 		"Mit diesem Makro können nicht lesbare, nur" + Chr$(13)
m$ = m$ + 	"ausführbare Makros erstellt werden." + Chr$(13)
m$ = m$ + 	"Zur Sicherheit wird ein Überschreiben eines " + Chr$(13)
m$ = m$ + 	"normalen Makros verhindert." + Chr$(13)
m$ = m$ + 	"Quell- und Ziel- Vorlage müßen geöffnet sein."
n = MsgBox(m$, "Basic Professionell - WordBasic Tips und Tricks", 1 + 48)
start:
If n = 0 Then Goto ende
a$ = InputBox$("Quellvorlage:Quellmakro", "Execute - Only Makros erzeugen", a$)
b$ = InputBox$("Zielvorlage:Zielmakro", "Execute - Only Makros erzeugen", b$)
If b$ = a$ Then
	MsgBox "Quell und ZielMakro haben identische Namen"
	Goto start :
EndIf
MakroKopieren a$, b$, 1    ' Der Wert 1 sorgt für den Schutz
ende:

End Sub