Problem mit Code, der VBA-Module löscht
31.05.2007 18:30:00
Peter
Nach Ablaufen des VBA Codes möchte ich die Module löschen. Dazu habe ich vor längerer Zeit folgenden Code erhalten:
Sub DeleteAllVBA()
Dim VBComp As VBIDE.VBComponent
Dim VBComps As VBIDE.VBComponents
Set VBComps = ActiveWorkbook.VBProject.VBComponents
For Each VBComp In VBComps
Select Case VBComp.Type
Case vbext_ct_StdModule, vbext_ct_MSForm, _
vbext_ct_ClassModule
VBComps.Remove VBComp
Case Else
With VBComp.CodeModule
.DeleteLines 1, .CountOfLines
End With
End Select
Next VBComp
End Sub
Nun erhalte ich in der Zeile
Set VBComps ...
folgenden Fehler -- Laufzeitfehler 1002: Der programmatische Zugriff auf das VBA Projekt ist nicht sicher.
Wenn ich mich richtig erinnere, musste ich schön früher einmal irgend eine Einstellung in der VBA Umgebung ändern. Ich kann mich jedoch nicht mehr erinnert, was das genau war. Oder liegt der Hacken an einem anderen Ort?
Danke für ein Feedback.
Peter