Hallo,
mit einer Arbeitmappe habe ich neuerdings das Problem, das sich ein Blatt innerhalb der Arbeitmappe nicht mehr l?schen bzw kopieren l??t. Die betreffenden Positionen sind grau unterlegt.
Es war noch nie ein Schreibschutz oder ?hnliches eingerichtet. Mit dieser Mappe arbeite ich schon einige Jahre. Es ist nat?rlich nicht auszuschlie?em, dass ich, ungewollt, mit einer ungewollten Aktion einen Befehl ausgel?st habe der diese Erscheinung bewirkt. Im Internet bin ich nicht f?ndig geworden. Vielleicht ist ja einem von Euch schon mal dasselbe passiert.
F?r eine Hilfe w?re ich sehr dankbar.
Mit Gru?
Siggi
Office - Word, Excel und Co. 9.753 Themen, 41.597 Beiträge
Hallo Siggi,
ist das Arbeitsblatt geschützt?
Welche Dateiendung hat die Exceldatei?
Schau nach, ob ein Makro im CODE- Bereich des Arbeitsblatt vorhanden ist.
Wenn kein Passwort für den Blattschutz vorhanden ist, wurde das Blatt eventuell so geschützt.
Private Sub Worksheet_Activate()
'Blattschutz und Tabellenstrukturschutz
'(incl. Tabellenblatt vor kopieren & verschieben schützen)
ActiveWorkbook.Protect Password:="", Structure:=True
'Alle Zellen nicht schützen
Cells.Locked = False
End Sub
Hallo,
vielen Dank für Deine schnelle Antwort. Inzwischen habe ich das Problem gelöst indem ich eine neue Arbeitsmappe erstellt habe und alle Daten da hinüberkopiert habe. War ziemlich Arbeit aber jetzt funktionat alles wieder wie gewohnt.
Vielen Dank nochmals
Siggi
Hallo Siggi,
Danke für die Info.
Persönlich möchte ich bei meinen Dateien den Grund finden, welcher die Ursache für die Blattblockierung war, hab ich ihn gefunden, wird ein Makro erstellt, um den Fehler bei erneutem auftauchen, mit einem klick abzustellen.
Vor allen Dingen lernst du auch dabei, wenn du der Ursache auf den Grund gehst.
Hallo Siggi,
so kannst du den Blatt- und Strukturschutz wieder entfernen.
Sub Blattschutz_Strukturschutz_entfernen()
'Erst den Blattschutz setzen
'aber den Tabellenstrukturschutz & Schutz vor kopieren & verschieben aufheben
ActiveWorkbook.Protect Password:="", Structure:=False
'Alle Zellen schützen(Standard)
Cells.Locked = True
'Anschließend den Blattschutz wieder entfernen
ActiveWorkbook.Unprotect Password:=""
End Sub