Blattschutz hakt
20.11.2019 08:33:31
EasyD
Ich baue derzeit ein etwas aufwendigeres Projekt, habe auch schon mehrfach meine Fragen dazu hier klären können. Jetzt habe ich aber ein Problem mit dem Blattschutz dass ich mir nicht erklären kann.
Bis zuletzt lief folgendes auf allen Blättern der Mappe einwandfrei:
Private Sub Worksheet_Activate()
Call Protect_off
'.......blabla
End Sub
Option Explicit
Option Base 1
Public Const psw As String = "meinPW"
Sub Protect_off()
ActiveSheet.Unprotect Password:=psw
'urspürnglich hatte ich das mal so hier - Public Const psw As String = Sheets("xxxxx").Range("S1").Value
'-> auf dem Blatt in S1 steht das Passwort
ActiveSheet.ScrollArea = ""
End Sub
Wenn ich nun das Blatt aktiviere, dann wird gemeckert ich möge doch prüfen ob die Feststelltaste aktiv ist weil mein Passwort falsch ist.
Merkwürdig ist, dass der Blattschutz auf dem Blatt, auf dem das Passwort steht (xxxx), funktioniert und nur auf den anderen Blättern nicht.
Jetzt habe ich gegoogelt was ich machen kann um das Passwort zu entfernen. Ich stoße immer wieder auf die Lösung das Passwort über Umweg mit 7zip zu löschen indem ich aus dem sheet den entsprechenden Passus "sheet protection" raus lösche.
Funktioniert nicht!
Ich habe sogar im Laufe der Erstellung mehrere Sicherungskopien von dem Projekt gemacht, unter anderem auch zu einem Zeitpunkt als der Blattschutz noch funktioniert hat. Ich habe sogar das sheet aus einer dieser älteren Versionen mittels 7zip rauskopiert und in die aktuelle Version reinkopiert - auch ergebnislos....
Hat irgendjemand eine Idee? Ich bin mir nicht bewusst dass ich zu irgendeinem Zeitpunkt ein anderes Passwort verwendet habe als das, was auf xxxx in S1 steht. Um aber auch hier einen Fehler auszuschließen habe ich das dann irgendwann direkt in den Code geschrieben statt in S1. Wenn ich protect_off starte greift er auch korrekt das Passwort im Lokalfenster ab....
Ich bin ratlos