VBA Schutz mit Makro aufheben
12.05.2016 11:06:06
Gregor
Mit folgendem Code will ich ein Modul in eine andere Datei kopieren. Das funktioniert auch, wenn kein VBA Schutz gesetzt ist. Nun ist aber meine Datei beim Öffnen immer VBA geschützt.
Sub CopyMakro()
Dim vbC As Object
Dim iRow As Integer
Dim sCode As String
On Error GoTo ERRORHANDLER
With ThisWorkbook.VBProject.VBComponents("Mein Modul").codemodule
sCode = .Lines(1, .CountOfLines)
End With
Set vbC = Workbooks(DateiName).VBProject.VBComponents.Add(1)
vbC.codemodule.deletelines 1, vbC.codemodule.CountOfLines
vbC.codemodule.AddFromString sCode
Exit Sub
ERRORHANDLER:
MsgBox "Das Makro konnte nicht kopiert werden!"
End Sub
Sub
Sub aufheben() 'VBA-Kennwort aufheben
SendKeys "%{F11}%xi{TAB 9}" & "Mein Kennwort" & "{tab}{enter 2}%q"
End Sub
In meinem Makro rufe ich die beiden code wie folgt auf:
Application.Run "Test.xlsm!aufheben"
Call CopyMakro
Leider wird so der Schutz nicht aufgehoben und deshalb kann auch das Makro nicht kopiert werden.
Wie muss ich das Lösen?
Danke und Gruss
Gregor
Anzeige