Hallo,
vor kurzen habe ich nach folgenden Code von Josef Ehrensberger geschickt bekommen.
Private Sub Workbook_Open()
Sheets("Tabelle1").EnableSelection = xlUnlockedCells
'Tabellennamen anpassen
End Sub
Er funktioniert einwandfrei in der entsprechenden Tabelle.
Kopiere ich jedoch die Tabelle in eine andere Mappe wird der Zellschutz aufgehoben und läßt sich nicht mehr aktivieren. Außerdem habe ich noch die Frage kann ich den Tabellennamen ("Tabelle1") automatisch anpassen lassen, also wenn z.B. die Tabelle "Tab2" heißen soll.
Vielleicht kann mir ja jemand helfen.
Vielen Dank.
Gruss Brigitte