Office: (Office Version unbekannt) VBA: Zellen entsperren/sperren Problem

Hallo,

Ich habe ein Problem mit dem Entsperren/sperren von Zellen im VBA. Es soll ein Dokuemnt sein, dass einen Urlaubsschein elektronisch abbildet und möglichst fälschungssicher ist. Das Dokument ansich funktioniert grundlegend und ich muss am Ende nur noch Kennwörter ändern und den VBA-Code passwortschützen. Probleme macht mir aber das Aufheben und Setzen des Blattschutzes.

Zwar funktionieren die Befehle "einzeln" (getestet), aber dennoch bringt die Eingabe eine Fehlermeldung wegen gesperrter Zellen.
Die Eingabe erfolgt mittels Checkboxen, die mit Zellen verknüpft sind. Diese Zellen habe ich in ihrem Bereich von der Sperrung schon ausgeschlossen.

Ebenso wird der Arbeitsblattschutz zu Beginn des Makros aufgehoben und am Ende gesetzt, trotzdem kommt die Fehlermeldung.
Ich finde einfach den Fehler nicht und bitte um Hilfe.

Danke und VG
woerli

(Office Version ist 2019)

 

Hallo Woerli,
die Checkboxen haben eine LinkedCell. Die wird gesetzt, bevor das Makro gestartet wird, die Zellen (Fx, Ix) sind aber gesperrt.
kann also nicht gehen.
Gruß der AlteDresdner

 

Guten Morgen AlterDresdner,

danke für die Antwort, allerdings habe ich das schon bedacht und die Zellen sind als "nicht geschützter Bereich" (a und b) definiert. Ich hatte das auch überprüft, die Felder lassen sich bearbeiten:



Ich habe eben alle Funktionen mal auskommentiert und nur die Checkbox-Funktion belassen, selbst da tritt der Fehler auf.
Wenn ich beim Setzen des Schutzes folgenden Befehl verwende:

Worksheets("MA-0").Protect Password:="aaa", Contents:=True, UserInterfaceOnly:=True

tritt der Fehler auf. Ich scheine bei der Definition des Blattschutzes noch irgendeine Option vergessen zu haben, aber selbst wenn ich alle Haken oder keine setze, tritt das Problem auf.

 

Hallo Woerli,
Bei mir haben die Zellen den Status gesperrt.
Deine "nicht geschützten Bereiche" kenne ich nicht (2010).
Da steht: Bereiche, für die ein Kennwort die Sperre aufhebt:?
Sollten nicht eher die Nutzer festgelegt werden, die die Bereiche ohne Kennwort bearbeiten dürfen?
Ich bin dann raus.
Viel Erfolg wünscht noch der AlteDresdner

 

Danke trotzdem!
Kannst du denn die grünen Bereiche (Urlaubsstart, Urlaubsende, Arbeitstage) bearbeiten, oder sind diese Zellen bei dir auch gesperrt?

Der Blattschutz läuft doch wiefolgt ab:
Ich sperre prinzipiell das gesamte Blatt (Blattschutz), kann aber mit der Funktion "Bearbeiten von Bereichen zulassen" bestimmte Zellen davon ausschließen. Diese ausgeschlossenen Bereiche sind in der kleinen Grafik in meinem letzten Beitrag dargestellt und umfassen die Spalten für Urlaubsdauer (Start, Ende, Arbeitstage) sowie die beiden Spalten(bereiche) mit den Checkboxen.
Ich kann auch bei aktivem Blattschutz in diesen Bereichen Eingaben vornehmen oder löschen, daher sollten diese Zellen nicht gesperrt sein.

Da der Fehler aber dennoch auftritt, muss hier ein Detailproblem vorliegen, welches sich mir noch entzieht.

EDIT:

Ich habe das Problem jetzt umgangen, indem ich den Checkboxen die Verknüpfung zu ihren Zellen entzogen habe.
Scheinbar erkennen die Checkboxen nicht, wenn ihre Zellen von einem gesperrten Bereich ausgenommen sind.
Jedenfalls tritt das Problem selbst bei kleinen Testdateien auf, die nur aus einer Checkbox in einer Zelle bestehen, wenn der Blattschutz - mit Ausnahme der einen Zelle - aktiv ist.