Quelltext der Seite Office:Word2010 VBA Makro sollen sich selbst aus Dokument löschen


[[Kategorie:Word]]
Unter [http://www.office-loesung.de/ftopic322374_0_0_asc.php http://www.office-loesung.de] hat der Benutzer "mumpel" einige VBA Makros für Excel gepostet die ich an Word entsprechend angepasst habe:<br>

'''<u>Schritt 1: </u>''' Wir müssen mal wieder an der Makro Sicherheit schrauben.<br>
Es ist natürlich eine "böse" Sache wenn ein Makro anfängt andere zu löschen und dann sich selbst. Word fängt so etwas gleich ab. <br>
Mit folgender Einstellung geht es dann doch:<br>

[[Datei:Zugriff_auf_das_VBA-Projektmodell_vertrauen-001.gif]]<br>

Alternativ direkt den Registry-Key editieren:<br>
 HKEY_CURRENT_USER\Software\Microsoft\Office\14.0\Word\Security\
 AccessVBOM = REG_DWORD 1
an selber Stelle kann auch die Makro Sicherheit heruntergeschaltet werden:<br>
 HKEY_CURRENT_USER\Software\Microsoft\Office\14.0\Word\Security\
 VBAWarnings = REG_DWORD 1

Die nachfolgenden Makros löschen zunächst alle Module, dann alle Forms (Benutzeroberflächen) und dann alle direkt im Dokument vorhandenen Makros (<code>ThisDocument</code>) - einschließlich sich selbst.<br>
Unter <code>ThisDocument</code> sollten dann auch diese Makros selbst hinterlegt werden.<br><br>

<big>'''[[Media:DeleteAllWordVBAMacros.txt|DeleteAllWordVBAMacros.txt]]'''</big><br><br>

<source lang="vb">
 Sub DeleteAllWordVBAMacros()
 Rem Ruf die Sub-Routinen nacheinander auf - mit der letzten löschen wir uns auch selbst
     Call Delete_WordModules
     Call Delete_WordUserforms
     Call Delete_WordThisDocumentProcedures
 End Sub
 
 Sub Delete_WordModules()
 Rem Löscht alle im aktiven Dokument hinterlegten Module:
     For n = ActiveDocument.VBProject.vbComponents.Count To 1 Step -1
         If ActiveDocument.VBProject.vbComponents(n).Type = 1 Then
             ActiveDocument.VBProject.vbComponents(n).Collection.Remove ActiveDocument.VBProject.vbComponents(n)
         End If
     Next
 End Sub
 
 Sub Delete_WordUserforms()
 Rem Löscht alle im aktiven Dokument hinterlegten Forms:
     For n = ActiveDocument.VBProject.vbComponents.Count To 1 Step -1
         If ActiveDocument.VBProject.vbComponents(n).Type = 3 Then
             ActiveDocument.VBProject.vbComponents(n).Collection.Remove ActiveDocument.VBProject.vbComponents(n)
         End If
     Next
 End Sub
 
 Sub Delete_WordThisDocumentProcedures()
 Rem Löscht alle Makros aus dem Bereich "ThisDocument"
     For n = ActiveDocument.VBProject.vbComponents.Count To 1 Step -1
         For i = 1 To ActiveDocument.VBProject.vbComponents(n).CodeModule.CountOfLines
             If ActiveDocument.VBProject.vbComponents(n).Type <> 1 And ActiveDocument.VBProject.vbComponents(n).Type <> 3 Then _
                 ActiveDocument.VBProject.vbComponents(n).CodeModule.DeleteLines 1
         Next
     Next
 End Sub
</source>
<comments />