Ihr Lieben,
Noch kurz vor Feierabend :
Mit dem Code unten schiebe ich einige
Arbeitsblätter und ein Modul mit Makros
in eine neue Datei, die dann abgespeichert
wird. Wie kann ich denn das neue VBA Projekt
in dieser Datei per VBA mit Password schützen ?
Dim sPath As String
sPath = Application.DefaultFilePath & "\temp.bas"
Sheets(Array("BILDER", "DATEN", "PIVOT", "AUSWERTUNG")).Select
Sheets("BILDER").Activate
Sheets(Array("BILDER", "DATEN", "PIVOT", "AUSWERTUNG")).Copy


ThisWorkbook.VBProject.VBComponents("Modul2").export sPath
ActiveWorkbook.VBProject.VBComponents.Import sPath
Viele Grüße
R.Schmitt