Zellschutz mit Makro aufheben
16.02.2004 11:15:17
lemon
Vielleicht kann mir jemand weiterhelfen.
Ich habe schon einiges ausprobiert, bekome aber die richtige Synthax nicht zusammen.
Mein Problem:
Ab Spalte "G" ist alles geschützt. Wenn nun in Spalte "G" <> "", dann soll der Schutz von der Spalte "I" entfernt werden. "H" und "J" sollen weiterhin gespeert bleiben.
So wie ich es jetzt habe, zeigt er mir keinen Synthax Fehler an. Aber wenn man in "G" etwas hineinschreibt, springt er in den Code zu dieser Zeile:
Cells(zeile, "I").Locked = False
Vielleicht kann mir jemand weitehelfen oder den entscheidenen Tipp geben
Vielen Dank
lemon
Private Sub Worksheet_Change(ByVal Target As Range)
Dim spalte As Long
Dim zeile As Long
If Target.Cells.Count > 1 Then Exit Sub
Me.Unprotect ""
' Application.EnableEvents = False
spalte = Target.Column
zeile = Target.Row
'Erstellt
Select Case spalte
Case 7
If Cells(zeile, "G") <> "" Then
Cells(zeile, "H") = Now
Cells(zeile, "I").Locked = False
Else
Cells(zeile, "H") = ""
Cells(zeile, "I").Locked = True
End If
'Getestet
Case 9
If Cells(zeile, "I") <> "" Then
Cells(zeile, "J") = Now
Else
Cells(zeile, "J") = ""
End If
'PandU_T/2T
Case 11
If Cells(zeile, "K") <> "" Then
Cells(zeile, "L") = Now
Else
Cells(zeile, "L") = ""
End If
'PandU_Prod
Case 13
If Cells(zeile, "M") <> "" Then
Cells(zeile, "N") = Now
Else
Cells(zeile, "N") = ""
End If
End Select
Me.Protect ""
' Application.EnableEvents = True
End Sub