hallo,

ich hoffe hier kann mir mal jemand auf die Sprünge helfen. Ich möchte, dass in Abhängigkeit einer Textboxeingabe, ein bestimmter Bereich meines Arbeitsblatts nicht gesperrt wird.
Dies ist mein Code dafür:

Private Sub textbox1_Change()
ActiveSheet.Unprotect
ActiveSheet.Protect userinterfaceonly:=True
i = TextBox1.Text
Range(Cells(i / 2 + i + 4 + 1, 3), Cells(i / 2 + i + 4 + i / 2 * (i / 2 - 1) / 2, 4)).Locked = False
End Sub

Grundsätzlich funktioniert er auch, aber wenn ich z.B.erst eine große Zahl verwende, und im nächsten Durchgang eine kleinere, dann ist weiterhin der große Bereich nicht gesperrt.
ich kann mir nun aber nicht erklären, wie das kommt. Durch ActiveSheet.Protect userinterfaceonly:=True wird doch erstmal das komplette Blatt für Zugriffe gesperrt, und dann wird mein Bereich wieder freigegeben. Oder lieg ich da völlig daneben?

Gruß
Dominik