VBA-Paßwort per Makro eingeben?
18.02.2004 08:03:44
John
ich habe ein Makro A geschrieben, das seinerseits in einer zweiten Arbeitsmappe das Makro B erzeugt:
Sub MakroA()
Set VBP = ActiveWorkbook.VBProject.VBComponents("uebung")
With VBP.CodeModule
.InsertLines 1, "
Sub MakroB()"
.InsertLines 2, " Msgbox ""HALLO"""
.InsertLines 3, "End Sub
"
End With
End Sub
Das funktioniert auch ganz hervorragend, aber das Problem ist, daß es auch passieren kann, daß das VB-Projekt der Arbeitsmappe, in der Makro B erzeugt werden soll, mit dem Paßwort "test" geschützt ist.
Gibt es denn eine Möglichkeit, diesen VBA-Paßwortschutz per Makro aufzuheben, damit die Aktion durchgeführt werden kann?
Vielen Dank im Voraus!
Gruß,
John