Blattschutz hakt
17.09.2020 14:09:28
EasyD
folgende Problematik hatte ich schon mehr als 1x hier angesprochen, leider bisher ohne Lösung. Der Grund dafür ist, dass ich die Mappe nicht ohne 3 Tage Arbeit entfremden kann. Viel zu viel vertrauliches Zeug drin, dummerweise auch direkt im Code. Das hilft euch allen natürlich bei der Lösungsfindung nicht wirklich weiter, das ist mir bewusst.
Ich versuche nochmal zusammen zu fassen:
In einem Blatt mache ich:
Private Sub Worksheet_Activate()
Call Protect_off
'.......blabla
Call Protect_on
End Sub
Und in einem Modul mache ich:
Option Explicit
Option Base 1
Public Const psw As String = "meinPW"
Sub Protect_off()
ActiveSheet.Unprotect Password:=psw
ActiveSheet.ScrollArea = "" 'scrollen erlauben
End Sub
Sub Protect_on()
ActiveSheet.Protect Password:=psw
ActiveSheet.ScrollArea = "......." 'hier lege ich einen festen Zeilenbereich fest der gescrollt werden darf
End Sub
Die Mappe funktionierte zum Zeitpunkt x bereits einwandfrei, keine Probleme mit der oben dargestellten Vorgehensweise.
Ich habe nun noch weiter daran gearbeitet und nun meckert er mir leider beim Wechsel auf das Blatt rum wegen eines falsches Passwortes. Auf dem betreffenden Blatt habe ich - soweit ich mich erinnere - noch nicht mal was gemacht, meine Bearbeitung war an anderer Stelle. Genauso wenig bin ich mir bewusst, dass ich evtl mal ein händisches PW eingegeben habe.
Könnt Ihr mich in die richtige Richtung schubsen, damit ich heraus finde an welcher Stelle ich nun bei der Bearbeitung der Mappe Unfug gemacht habe und mir die Prozedur mit dem Blattschutz kaputt gemacht habe?
Wie würdet Ihr das Problem angehen (wenn ich euch die Mappe hochladen könnte) bzw welche Prüfschritte könnt Ihr mir empfehlen?
Ich bin verzweifelt.... aber dankbar für jeden der bereit ist mir zu helfen!
Grüße
Easy