Hallo,
folgenden Code ins Codemodul des Arbeitsblattes, auf dem er sich auswirken soll.
-Rechtsklick auf den Tabellenblattreiter - Code anzeigen - Code rechts ins Codemodul kopieren
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 | 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
1 2 3 4 5 | 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
|