Hallo zusammen,

ich habe ein Problem mit dem Schreibschutz. Ich möchte mein Arbeitsblatt1 so schützen, dass nur bestemmte Zellen angeklickt werden können. Arbeitsblatt2 soll komplett schreibgeschützt sein, so dass es nicht möglich ist eine Zelle anzuklicken. Die Arbeitsblätter sind unter Blattschutz „nicht gesperrte Zellen auswählen“ Kennwortgeschützt. Jetzt werden vom Arbeitzblatt1 aus auf Arbeitsblatt2 Zellen ein und ausgeblendet. Dazu nutze ich folgenden Befehl:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address = "$U$12" Then
ActiveSheet.Unprotect
With Worksheets("Zeichnung")
.Unprotect
.Rows("7:9").Hidden = Range("U12").Value < 4
.Protect
End With
ActiveSheet.Protect
End If

Soweit so gut.
Wird jetzt die Datei gespeichert und geschlossen, ist der Schreibschutz beim nächsten öffnen nicht mehr Kennwortgeschützt und ich kann auf beiden Arbeitsblättern jede Zelle anklicken. Ich vermut mal, dass hängt irgendwie mit Unprotect / Protect zusammen, die ich ja wegen dem Schreibschutz benutzen muss. Meine VBA Kenntnisse reichen dafür leider nicht aus.

Gruß Juppes