Der Schutz soll zum Aktualisieren der Daten und deren Sortierung aufgehoben werden:
ActiveSheet.Unprotect
.
.code
.
ActiveSheet.Protect
Beim ersten Aufruf funktioniert es. Danach ist im Menü die Option "Blatt schutz aufheben" nicht verfügbar (ausgeblendet), beim 2. Aufruf der Prozedur kommt ein Laufzeitfehler 1004:
"Die Unprotect-Methode des Worksheet-Objekt ist fehlerhaft."
WAS GEHT ?
Ich hab auch schon versucht:
If ActiveSheet.ProtectContents = True Then
ActiveSheet.Unprotect
End If
.
.code
.
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:=False
Er nimmt die Bedingung an, bringt dann aber den selben Fehler.
Jemand ne Ahnung?
Gruß Umbratus