Office: Problem mit aktivieren/deaktivieren Blattschutz per VBA und dem internen Blattschutz

Hallo,

ich habe eine Datei mit 13 Arbeitsblättern. 1. Arbeitsblatt heißt "Stammdaten", die Folgenden tragen den Namen des Monats Januar, Februar, März usw.

Im Arbeitsblatt "Stammdaten" habe ich jeweils eine Schaltfläche um den Blattschutz für alle Arbeitsblätter gleichzeitig zu setzen und eine Schaltfläche um den Blattschutz wieder für alle gleichzeitig zu deaktivieren. Hier dazu die Codes der entsprechenden Makros:

Code:

Code:

Das funktioniert auch. Aber ein blödes Problem gibt es. Wenn alle Arbeitsplätter per Macro geschütz sind und man klickt über "Überprüfen" ->"Blattschutz aufheben", dann wird der Schutz des aktuellen Arbeitsblattes abgeschaltet und zwar ohne Passwortabfrage!

Was kann ich dagegen tun?

Danke

:)

 

Zum einen fragst Du zwar per Inputbox ein Kennwort ab, nutzt es aber nicht. Und "Test123" ist ohne Anführungszeichen eine Variable, kein Kennwort. Statt "Test123" musst Du "pwd" nehmen, also das Kennwort aus der Inputbox. Da Du "On Error Resume Next" einsetzt fällt Dir der Fehler nicht auf. Dadurch wird einfach kein Kennwort gesetzt.

 

Hallo,

Schon das kann ich nicht nachvollziehen - siehe nachfolgenden Code.

Du liest das Pswd nach Pwd ein; allerdings nutzt Du in der Protect-Anweisung nicht Pwd, sondern die Variable Test123. Und was da drin steht, geht aus dem Code nicht hervor.

Gruß
Aloys

Ich sehe gerade, mumpel war etwas schneller !

Code:

 

Super. Vielen Dank. Das funktioniert gut.

Eine Sache ist mir nur aufgefallen.

Wenn der Blattschutz für alle Arbeitsblätter abgeschaltet ist und man dan für ein einzelnes Arbeitsblatt den Schutz aktiviert und zwar mit einem anderen Passwort, dann funktioniert das Ganze nicht mehr fehlerfrei.

 

Hallo,

Ich erlaube mir, Dich daran zu erinnern, dass wir in keinem Rätsel-Forum sind.

Konkret: was genau funktioniert anschließend nicht mehr fehlerfrei und wie äußert sich das ?

Gruß
Aloys

 

Natürlich tut es das nicht. Dein Code ist für ein Passwort ausgelegt, nicht für verschiedene.

 

Also sagen wir mal, dass mein Passwort für den Blattschutz im VBA-Code als "Test123" festgelegt wurde. Jetzt gehen wir davon aus, dass alle Arbeitsblätter ungeschützt sind. Nun klicke ich bei einem Arbeitsblatt auf Überprüfen -> Blatt schützen und denke mir ein anderes Passwort aus, z.B. "Test2020".
So weit so gut.

Jetzt klicke ich auf meine Schaltfäche Blattschutz deaktivieren und gebe das Passwort (aus dem VBA-Code) ein , also "Test123".

Resultat ist, dass das Passwort falsch ist.

Anbei ein Screenshot davon.

Tut mir leid, wenn ich mich so blöd anstelle.

 

Hallo,

warum trennst Du denn den Schutz nicht auf ?
- die Monatsblätter per Password 1, und
- die Stammdaten per Password 2 ?

Die Frage wäre auch, warum Du den Pswd-Schutz in den Monatsblättern als auch für die Stammdaten überhaupt aufheben musst ?

Gruß
Aloys

 

Der Hintergrund ist folgender:

Meine Kollegen und ich arbeiten in einem Team. Ein anderer Kollege und ich dürfen in der Datei schreiben, die anderen dürfen nur den Inhalt lesen.
Da wir alle gemein in Schichtarbeiten arbeiten, gemeinsam an einem PC mit einem gemeinsamen Benutzerkonto und ich nicht weiß, ob der andere Kollege sich daran halten wird, den Blattschutz über den Button zu nutzen und nicht den internen, muss ich alles etwas umständlicher machen.

 

Ich denke, dass ich mit der Lösung zufrieden bin. Alles weitere würde vielleicht zu weit führen und ist möglicherweise nur mit (kostenpflichtigen) Addins lösbar.

Ich werde in Excel das Menüband anpassen und den Bereich Schutz ausblenden, in der Hoffnung, dass der andere Kollege dann die Schaltflächen mit den Makros nutzt.

Eine Sache ist mir jedoch noch aufgefallen und hoffe ihr könnt mir da noch behilflich sein, bevor ich das Thema als erledigt markiere.

Wenn ich die Schaltflächen "Blattschutz aktivieren" oder "Blattschutz deaktiviere" anklicke, kann es vorkommen, dass Excel dann auf das Tabellenblatt "November" springt. Diese Situation ist jedoch nicht immer der Fall. Was dann doch immer der Fall ist, dass es der November ist. Ich habe mir den Code der einzelnen Tabellenblätter angeschaut, um eventuelle Unterschiede zu erkennen. Dieser ist jedoch überall identisch:

Code:

 

Bin da leider immer noch nicht weitergekommen, warum beim Blattschutz deaktivieren ausgerechnet zum Arbeitsblatt "November" springt.