VBA
21.09.2007 15:43:00
Sonja
da Ihr mir diese Woche schon einmal super geholfen habt noch eine Frage.
In dem nachfolgendem VBA Code wird die Zelle B9 bei Eingabe von "BU" gesperrt.
Wie kann ich den Code soweit verändern das, wenn in den Zellen von "B7 bis L37" die Buchstaben BU
oder GU stehen die Zellen gesperrt werden?
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address "$B$9" Then Exit Sub
ActiveSheet.Unprotect Password:="Passwort"
If Target.Value = "BU" Then
Range("$B$9").Locked = True
End If
ActiveSheet.Protect Password:="Passwort"
If Target.Address "$B$9" Then Exit Sub
ActiveSheet.Unprotect Password:="Passwort"
If Target.Value = "" Then
Range("$B$9").Locked = False
Selection.Locked = False
Selection.FormulaHidden = False
End If
ActiveSheet.Protect Password:="Passwort"
End Sub
Mit freundlichen Grüßen
Sonja