Code mit passwort schützen aus einem Makro heraus

Ich habe meine Makros durch ein Passwort geschützt. Jetzt hab ich folgendes Problem:

Ich will in ein bestimmtes Sheet eine Funktion (Makro) einbauen und verwende dazu folgendes Statement:

With ThisWorkbook.VBProject.VBComponents(Worksheets("Sheet1").CodeName).codemodule.AddFromString sCode
End With

sCode besteht aus 3 Codezeilen.

Da mein Projekt aber passwortgeschützt ist funkioniert dieses Statement nicht.

Nun meine Frage an euch. Kann ich in einem Makro kurzfristig den Passwortschutz wieder aufheben und ihn anschließend wieder herstellen. Kann mir nicht vorstellen wie ích dieses Problem sonst hinkriegen soll.

Ich danke im Vorraus für alle guten Hinweise,

mfG Manuel