Kniffelig - Löschen von geschütztem VBA Code

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