Office: aktiven Blattschutz im Tabellenblatt anzeigen

Hallo Aloys

hier ist der Link zu meiner Datei:

https://www.dropbox.com/s/etkrijbptj...hutz.xlsm?dl=0

Der Code ist in den Tabellen "Baugruppen" und "Material" hinterlegt.
In der Tabelle Baugruppen bleibt A2 rot und in Tabelle Material passiert gar nicht.
Hinweis: Mit den Button "Bearbeitungsmodus an" und "Bearbeitungsmodus aus" wird der Blattschutz geschalten.

Vielen Dank im Voraus
manega

 

Hallo Aloys,

hier der Link zu meiner Datei :
Blattschutz.xlsm

23.03.2016 04:52, 3,79 MB

Der Code ist in den Tabellen Baugruppen und Material hinterlegt.
Bei Baugruppen färbt sich A2 rot, bei Material passiert gar nichts.
Mit den beiden Button "Bearbeitungsmodus An" und "Bearbeitungsmodus Aus"kann der Zustand des Blattschutzes manuell geregelt werden.

Vielen Dank im Voraus
manega

 

Hallo manega,

hast Du den Link mal selbst aufgerufen ?

Du kannst doch die Datei soweit abspecken, dass Du sie mit Boardmitteln dieses Forums hochladen kannst.
Es kommt hier doch nicht auf die Inhalte, sondern nur auf die Steuerung an.

Gruß
Aloys

 

Hallo Aloys,

mein 2. Beitrag sollte gar nicht raus. Keine Ahnung was da gelaufen ist....
Der dortige Link geht nicht, aber der im vorherigen Beitrag funktioniert.
Hier ist er noch einmal:

https://www.dropbox.com/s/etkrijbptj...hutz.xlsm?dl=0

So klein, dass ich die Datei direkt einstellen kann, bekomme ich sie nicht.

Gruß
manega

 

Hallo manega,

sorry - ich kann die Datei nicht runterladen.

Gruß
Aloys

 

Hallo Aloys,

habe die Datei doch noch klein bekommen!

Gruß
manega

 

Hallo manega,

Mein Code würde wie gewünscht funktionieren, aber Du schaltest in der Routine den Blattschutz immer ein, d.h. beim Wechsel von einem beliebigen Blatt ins Blatt 'Baugruppen' ist der Blattschutz immer ein.
Code:

Gruß
Aloys

 

Hallo Aloys,

du hast recht. Ich habe das entsprechend geändert. Jetzt funktioniert dein Code, aber wie gesagt nur beim Blattwechsel.
Kann man den Code nun noch so anpassen, dass sich die Zellenfarbe auch ändert, wenn sich der Zustand des Blattschutzes ändert ohne das Blatt zu wechseln?
In etwa so:
Schutz aktiv - Zelle rot
Befehl Schutz aufheben - Zelle ohne Farbe, aber sofort
und das Gleiche wieder umgekehrt

Gruß
manega

 

Hallo manega,

mein Vorschlag:
Code:

Gruß
Aloys

 

Hallo Aloys,

so klappt es. Danke!

Schöne Osterfeiertage
manega