home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / bp_1_94 / winword / makkop.txt < prev    next >
Text File  |  1993-11-29  |  1KB  |  29 lines
  1. ' Basic Professionell Ausgabe 1/93
  2. ' WordBasic Tips und Tricks
  3. ' Makro: 'MakroKopierenExecuteOnly"
  4. ' Vorlage: NORMAL.DOT
  5. ' Funktion: Erzeugt nichtlesbare Makroprogramme
  6. ' Autor:  Walter Jung  -  Mainz  -  10/93
  7.  
  8. Sub MAIN
  9. On Error Goto ende
  10. m$ =         "Mit diesem Makro k÷nnen nicht lesbare, nur" + Chr$(13)
  11. m$ = m$ +     "ausfⁿhrbare Makros erstellt werden." + Chr$(13)
  12. m$ = m$ +     "Zur Sicherheit wird ein ▄berschreiben eines " + Chr$(13)
  13. m$ = m$ +     "normalen Makros verhindert." + Chr$(13)
  14. m$ = m$ +     "Quell- und Ziel- Vorlage mⁿ▀en ge÷ffnet sein."
  15. n = MsgBox(m$, "Basic Professionell - WordBasic Tips und Tricks", 1 + 48)
  16. start:
  17. If n = 0 Then Goto ende
  18. a$ = InputBox$("Quellvorlage:Quellmakro", "Execute - Only Makros erzeugen", a$)
  19. b$ = InputBox$("Zielvorlage:Zielmakro", "Execute - Only Makros erzeugen", b$)
  20. If b$ = a$ Then
  21.     MsgBox "Quell und ZielMakro haben identische Namen"
  22.     Goto start :
  23. EndIf
  24. MakroKopieren a$, b$, 1    ' Der Wert 1 sorgt fⁿr den Schutz
  25. ende:
  26.  
  27. End Sub
  28.  
  29.