Hallo zusammen,
ich habe eine Excel Datei aus der ich einen Teil in eine neue, eigenständige Excel Datei exportiere. Dieser Bereich der von einer Datei zur anderen kopiert wird, enthält Zellen die ein anderer User beschreiben darf, und welche die er nicht beschreiben darf, bzw. er soll einfach geschützte Zellen erst gar nicht anwählen dürfen. Die Kopieraktion mit läuft über ein Makro, das am Ende die neue Datei speichert und auch beendet, der Blattschutz wird natürlich auch passend gesetzt!
Wenn ich das abarbeiten des Makros vorm Beenden der neuen Datei unterbreche, funtioniert auch noch alles so wie ich mir das vorstelle, Wenn ich allerdings die Datei nach dem Beenden wieder neu Öffne kann ich wieder geschütze Zellen anwählen, was aber nicht gewünscht ist. Wenn ich die Schritte zum Setzen des Blattschutzes nun über Menü Extras - Blattschutz manuell vornehme und im Anschluß selbst speichere, bleibt dies auch nach dem Beenden so!
Der Codeabschnitt lautet wie folgt:
'Blattschutz setzen
ActiveSheet.Protect
ActiveSheet.EnableSelection = xlUnlockedCells

'Speichern
ActiveWorkbook.SaveAs Filename:=Pfad2, FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False,
CreateBackup:=False
'Beenden
Windows(Name2).Close
Kann mir da evtl jemand helfen?
Schon mal Danke im Voraus!!!
mfg Holger