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

mglinka99 · 19. Januar 2020

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:

Sub ProtectAllWorksheets()
Dim ws As Worksheet
Dim Pwd As String
Pwd = InputBox("Bitte Passwort eingeben, um alle Arbeitsblätter zu schützen", "Arbeitsblätter schützen")
For Each ws In ActiveWorkbook.Worksheets
ws.Protect Password:=Test123
Next ws
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Code:

Sub UnProtectAllWorksheets()
Dim ws As Worksheet
Dim Pwd As String
Pwd = InputBox("Bitte Passwort eingeben, um den Blattschutz zu deaktivieren", "Blattschutz deaktivieren")
On Error Resume Next
For Each ws In Worksheets
ws.Unprotect Password:=Test123
Next ws
If Err 0 Then
MsgBox "Falsches Passwort. Blattschutz der Arbeitsblätter " & _
"konnte nicht deaktiviert werden.", vbCritical, "Falsches Passwort"
End If
On Error GoTo 0
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

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

:)

mumpel · 21. Januar 2020

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.

Sub UnProtectAllWorksheets()
Dim ws As Worksheet
Dim Pwd As String

If InputBox("Bitte Passwort eingeben, um den Blattschutz zu deaktivieren", _
"Blattschutz deaktivieren") <> "Test123" Then
MsgBox "Kennwort ist falsch. Vorgang abgebrochen", 64, "Hinweis"
Else
For Each ws In ThisWorkbook.Worksheets
ws.Unprotect Password:="Test123"
Next ws
End If
End Sub

Sub ProtectAllWorksheets()
Dim ws As Worksheet
Dim Pwd As String

Pwd = InputBox("Bitte Passwort eingeben, um alle Arbeitsblätter zu schützen", _
"Arbeitsblätter schützen")
For Each ws In ActiveWorkbook.Worksheets
ws.Protect Password:=Pwd
Next ws

End Sub

Lukas Mosimann. Projektbetreuung:
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

aloys78 · 21. Januar 2020

Hallo,

Das funktioniert auch
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

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:

Sub ProtectAllWorksheets()
Dim ws As Worksheet
Dim Pwd As String
Pwd = InputBox("Bitte Passwort eingeben, um alle Arbeitsblätter zu schützen", "Arbeitsblätter schützen")
For Each ws In ActiveWorkbook.Worksheets
ws.Protect Password:=Test123
Next ws
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

mglinka99 · 21. Januar 2020

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.

aloys78 · 21. Januar 2020

Hallo,

... dann funktioniert das Ganze nicht mehr fehlerfrei.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

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

mumpel · 12. Januar 2021

von mglinka99

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.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

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

mglinka99 · 21. Januar 2020

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.

aloys78 · 21. Januar 2020

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

mglinka99 · 12. Januar 2021

von aloys78

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
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

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.

mglinka99 · 21. Januar 2020

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:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If (Target.Column >= 4 And Target.Column = 3 And Target.Row
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

mglinka99 · 23. Januar 2020

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

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

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

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

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

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

Problem mit aktivieren/deaktivieren Blattschutz per VBA und dem internen Blattschutz - Similar Threads - Problem aktivieren deaktivieren

Outlook Problem

Problem bei Fußnote

Excel found a problem with one or more formula references in this worksheet

Zählenwenns Problem

Problem mit Seitenzahlen/Seitenbeschriftung

Data Transform, Problem with delimiter

Problem Datenstruktur Mitglieds-Datenbank