|
Hallo,
folgenden Code ins Codemodul des Arbeitsblattes, auf dem er sich auswirken soll.
-Rechtsklick auf den Tabellenblattreiter - Code anzeigen - Code rechts ins Codemodul kopieren
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 1 Then Exit Sub
If Target.Count > 1 Then
MsgBox "Mehrfachauswahl ist nicht zulässig."
Application.EnableEvents = False
Application.Undo
Application.EnableEvents = True
Exit Sub
End If
If Target.Offset(0, 1).Value = "Profil 2" Then
Target.Offset(0, 3).Locked = False
Else
Target.Offset(0, 3).Locked = True
End If
End Sub
folgenden Code ins Codemodul von "DieseArbeitsmappe"
im VBA-Editor doppelklick auf "DieseArbeitsmappe" - Code rechts ins Codefenster kopieren
Private Sub Workbook_Open()
With Worksheets("Tabelle1")
.Protect Password:="DeinPasswort", userinterfaceonly:=True
End With
End Sub
Hier musst du dann noch im Code dein Passort zwischen den Gänsefüßchen eintragen.
Jetzt musst du die Datei speichern. Beim nächsten öffnen läuft es dann folgendermaßen:
Wenn du im Blatt 1 in Spalte A einen Wert einträgst und in der gleichen Zeile in Spalte B "Profil 2" steht, dann wird in der gleichen Zeile die Zelle in D "entsperrt.
Änderst du den Wert in Spalte A und dadurch ändert sich der Wert in Spalte B auf ein anderes Profil, dann wird die entsprechende Zelle in D wieder gesperrt.
Gruß Werner
|