Blattschutz

[Lka_]

Hallo Zusammen,

ich möchte über alle meine Arbeitsblätter einen Blattschutz mit Passwort legen.

Dies ist mir auch mit folgendem VBA-Code gelungen:

Sub Blattschutz_AUS()
        Dim ws As Worksheet
        Dim Pwd As String
       
        If InputBox("Bitte Passwort eingeben, um den Blattschutz zu deaktivieren", _
        "Bearbeitungsmodus aktivieren") <> "0000" Then
        MsgBox "Kennwort ist falsch. Der Vorgang wurde abgebrochen", 64, "Hinweis"
        Else
        For Each ws In ThisWorkbook.Worksheets
        ws.Unprotect Password:="0000"
        Next ws
       
        MsgBox "Blattschutz aus!"
        End If
    End Sub


    Sub Blattschutz_AN()
        Dim ws As Worksheet
        Dim Pwd As String
       
        For Each ws In ActiveWorkbook.Worksheets
        ws.Protect
        Next ws
        MsgBox "Blattschutz an!"
   
    End Sub



Man muss also den Code "0000" eingeben, um den Blattschutz wieder aufzuheben.

Problem:

Der Blattschutz kann OHNE Passwort aufgehoben werden, indem man ihn über "-->Überprüfen-->Blattschutz aufheben" wieder aufhebt.

Wie kann ich das vermeiden? Also das der Blattschutz wirklich NUR über diesen VBA-Code aufgehoben werden kann ?

Vielen Dank im Voraus an alle!

LG Lka_

[Ralf A]

Problem:

Der Blattschutz kann OHNE Passwort aufgehoben werden, indem man ihn über "-->Überprüfen-->Blattschutz aufheben" wieder aufhebt.

Natürlich... wenn Du beim setzen des PW keins vorgibst, dann ist das so...

Code:

ws.Protect Password:="0000"

[Lka_]

Ralf, ich danke dir von Herzen!