per Makro einfügen mit Blattschutz
03.06.2020 13:08:28
esparragus
ich habe ein kleines Problem mit meinem Code.
Ich möchte eine verborgene Tabelle öffnen und etwas aus der Zwischenablage einfügen und anschließend wieder schließen.
Ansich kein Problem und mit meinem bisherigen Code voll funktionsfähig.
Jedoch möchte ich nun die Arbeitsmappe schützen. Also habe die Mappe mit Kennwort geschützt und am Anfang des Makros die Mappe entschützt und am Ende wieder geschützt.
Jedoch gibt bricht er den Code nun bei "ActiveSheet.Paste" ab. Die Mappe ist jedoch nach Schließen des Debug-Modus ungeschützt und ich kann auch händisch einkopieren. Der Teil funktioniert also auch problemlos.
Kann mir diesbezüglich jemand helfen?
Hier der Code vorher und nachher:
vorher:
Sub Einfügen()
' Einfügen Makro
Tabelle4.Visible = True
Tabelle4.Select
Range("A1").Select
ActiveSheet.Paste
Tabelle10.Select
Tabelle4.Visible = False
End Sub
nachher:
Sub Einfügen()
' Einfügen Makro
ActiveWorkbook.Unprotect Password:="meinPasswort"
Tabelle4.Visible = True
Tabelle4.Select
Range("A1").Select
ActiveSheet.Paste
Tabelle10.Select
Tabelle4.Visible = False
ActiveWorkbook.Protect Password:="meinPasswort"
End Sub