habe ein Problem mit folgendem Code:
Sub makros_weg()
Dim codeObj As Object
If Val(Application.Version) >= 8 Then
With ActiveWorkbook.VBProject
For Each codeObj In .VBComponents
Select Case codeObj.Type
Case 1, 2
.VBComponents.Remove codeObj
Case Else
With codeObj.codemodule
If .countoflines > 0 Then
.deletelines 1, .countoflines
End If
End With
End Select
Next
End With
End If
For Each codeObj In activewoorkbook.Names
Select Case codeObj.MacroType
Case xlFunction, xlCommand
codeObj.Delete
End Select
Next
End Sub
Es kommt die Fehlermeldung:
"Der programmatische Zugriff auf das Visual Basic-Projekt ist nicht sicher"
Auch der folgende Code, der unter Office 2000 läuft, tut nicht mehr, mit der gleichen Fehlermeldung:
'löscht den Code auf den Tabellenblättern
Sub machs()With ActiveSheet
With Application.VBE.ActiveVBProject.VBComponents(ActiveSheet.CodeName).CodeModule
.DeleteLines 1, .CountOfLines
End With
End With
Was kann ich tun?
Danke für jede Hilfe.
Gruß Andi
End Sub