Modul löschen
18.03.2018 08:34:59
Thomas
brauche die Hilfe von Euch.
Ich kopiere mir jeden Tag ein Blatt, welches Module und Schaltflächen enthält,
welche nach dem Kopieren gelöscht werden sollen. Die Schaltflächen kann ich löschen, die Module nur, wenn ich VBA-Projekt entsperrt habe.
Das Modul sieht wie folgt aus:
Sub MakroBlattLöschen()
Dim ws As Worksheet
With ActiveWorkbook
For Each ws In .Worksheets
If ws.Name = Sheets(2).Name Then
With .VBProject.VBComponents(ws.CodeName).CodeModule
.DeleteLines 1, .CountOfLines
End With
End If
Next ws
End With
End Sub
Habe schon "Zugriff auf das VBA-Projektobjektmodell vertrauen" aktiviert.
Was muss ich eventuell noch aktivieren bzw. tun, damit ich die Module im Sheet(2) ohne Entsperren löschen kann.
Gruß Thomas