Code und Module löschen

Sub Code_loeschen() 'Gesamten Code und Module löschen Dim myVBComponents As Object If InStr(ActiveWorkbook.Name, "_aktuell") 0 Then Exit Sub 'Sicherheits-check um nicht sich selbst zu löschen With ActiveWorkbook.VBProject For Each myVBComponents In .VBComponents Select Case myVBComponents.Type Case 1, 2, 3 With myVBComponents.CodeModule .DeleteLines 1, .CountOfLines End With .VBComponents.Remove .VBComponents(myVBComponents.Name) Case 100 With myVBComponents.CodeModule .DeleteLines 1, .CountOfLines End With End Select Next End With End Sub Das hat mal funktioniert, jetzt jedoch wird nur noch der Code gelöscht (immerhin) aber die leeren Module bleiben stehen. Hat jemand 'nen Tipp? Den Haken bei "VB-Projekt vertrauen" habe ich gesetzt. Gruß Karl-Heinz

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Karl-Heinz,
die Prozedur funktioniert bei mir (Excel2003, office Professional, WIndows XP) einwandfrei.
Ich würde allerdings den Sicherheits-Check etwas anders machen bzw. erweiteren.
Der Zugriff auf das VBA-Projekt einer Exceldatei per VBA ist nur möglich, wenn der Ersteller der Datei unter Extras--Optionen--Sicherheit--Makrosicherheit--- Register "vertrauenswürdige Herausgeber" die Option "Zugriff auf VBA-Projekt vertrauen" aktiviert hat.
Außerdem kann es sein, dass die EDV-Administration bestimmte Zugriffe zentral unterbunden hat.
Gruß
Franz


Sub Code_loeschen()
'Gesamten Code und Module löschen
Dim myVBComponents As Object
On Error GoTo Fehler
If MsgBox("Sämtlichen VBA-Code in aktiver Mappe löschen?", _
vbYesNo, "VBA-Code löschen") = vbYes Then
'Sicherheits-check um nicht sich selbst zu löschen
If LCase(ActiveWorkbook.Name) = LCase(ThisWorkbook.Name) Or _
LCase(ActiveWorkbook.Name) = LCase("Personl.xls") Then
MsgBox "In der Arbeitsmappe " & ActiveWorkbook.Name & _
" darf dieses Makro nicht ausgeführt werden!"
Exit Sub
End If
With ActiveWorkbook.VBProject
For Each myVBComponents In .VBComponents
Select Case myVBComponents.Type
Case 1, 2, 3
With myVBComponents.CodeModule
.DeleteLines 1, .CountOfLines
End With
.VBComponents.Remove .VBComponents(myVBComponents.Name)
Case 100
With myVBComponents.CodeModule
.DeleteLines 1, .CountOfLines
End With
End Select
Next
End With
End If
Fehler:
If Error  0 Then
MsgBox "Fehler: " & Err.Number & vbLf & Err.Description & vbLf _
& "VBA-Code wurde ggf. wegen Sperrung des Zugriffs nicht gelöscht!"
End If
End Sub

Beliebteste Forumthreads (12 Monate)

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread