wenn dann einzelne Zellen sperren
TinoB
habe wieder folgendes problem. fand im archiv folgenden code zum sperren von einzelnen zellen. nun möchte ich aber, das die bedingung nicht nur in Zeile1, sondern dynamisch in alle weiteren zeilen gilt. könnte mir da jemand helfen und dies so umbauen?
Danke
Tino
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Unprotect
If Cells(1, 1) = 10 Then
Range(Cells(1, 2), Cells(1, 4)).Locked = True
Else
Range(Cells(1, 2), Cells(1, 4)).Locked = False
End If
If Cells(1, 1) = 20 Then
Range(Cells(1, 2), Cells(1, 4)).Locked = True
Else
Range(Cells(1, 2), Cells(1, 4)).Locked = False
End If
ActiveSheet.Protect
End Sub
Private Sub Worksheet_Activate()
ActiveSheet.EnableSelection = xlUnlockedCells
End Sub
Anzeige