Kniffelig - Löschen von geschütztem VBA Code
06.06.2008 11:24:00
geschütztem
ich kopiere per VBA eine Datei und löschen darin alle Formeln.
Nun möchte ich auch noch den VBA Code löschen.
Ein Makro habe ich dazu auch gefunden:
Sub loeschen()
Dim WB As Workbook
For i = 1 To 100
For Each objVBE In Workbooks(dname).VBProject.VBComponents
n = objVBE.Name
On Error Resume Next
With Workbooks(dname).VBProject.VBComponents(n)
.codemodule.DeleteLines 1, 1
End With
Next
Next
End Sub
Mein Problem ist nur das ich vorher den Schutz aufheben muss.
Das Kennwort ist dabei bekannt.
Kann ich dem Code irgendwie das VBA Kennwort mitgeben?
Danke im Voraus.
MFG
Steffen Schmerler