VBA Code remove - im gesperrten Projekt !?
06.12.2006 18:02:34
Michael
in einem geschützten Projekt kann die nachfolgende Prozedur (Quelle: http://www.cpearson.com/excel/vbe.htm) nicht ausgeführt werden, naja - weil eben das Projekt geschützt ist. Ein Laufzeitfehler '50289' wird gezeigt, mit der Begründung: 'Die Operation kann nicht durchgeführt werden, solange das Projekt geschützt ist'.
Hat jemand eine Idee, wie ich dies umgehen kann...
Viele Grüße,
Michael
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