AW: Zellen sperren
15.10.2008 17:34:00
fcs
Hallo Bruehmi,
wenn du in J1 den Wert "x" oder "y" oder was anderes einträgst, um das Sperren der Zellen zu steuern, dann kannst du die prozedur etwa wie folgt anpassen.
Wird der Wert in J1 per Formel berechnet, dann muss du alle Zellen/Zellbereiche überwachen, die in der Formel verwendet werden.
Gruß
Franz
Private Sub Worksheet_Change(ByVal Target As Range)
Dim lngZeile As Long, lngSpalte As Long
Select Case Target.Column
Case 10 'Spalte J auf Eingaben überwachen
'ggf. Prüfung für Zeilennummer ergänzen/anpassen
If Target.Row = 1 Then
ActiveSheet.Unprotect
lngZeile = Target.Row
lngSpalte = 10
If LCase(Cells(lngZeile, lngSpalte)) = "x" Then
'in Zeile Spalten M bis S sperren
Range(Cells(lngZeile, 13), Cells(lngZeile, 19)).Locked = True
ElseIf LCase(Target.Value) = "y" Then
'in Zeile Spalten M bis O sperren
Range(Cells(lngZeile, 13), Cells(lngZeile, 15)).Locked = True
'in Zeile Spalten P bis Q entsperren
Range(Cells(lngZeile, 16), Cells(lngZeile, 17)).Locked = False
'in Zeile Spalten R bis S sperren
Range(Cells(lngZeile, 18), Cells(lngZeile, 19)).Locked = True
Else
'in Zeile Spalten M bis S entsperren
Range(Cells(lngZeile, 13), Cells(lngZeile, 19)).Locked = False
End If
End If
ActiveSheet.Protect
Case Else
'do nothing
End Select
End Sub