Blatt wieder schützen
10.03.2015 14:08:06
Mario
ich habe ein gesperrtes Tabellenblatt, bei dem nur die Pflichtfelder geändert werden sollen. Sobald man in ein Pflichtfeld reinklickt, wird es farblich markiert und kann geändert werden.
Klicke ich aber nun auf ein NICHT-Pflichtfeld wird der Blattschutz aufgehoben.
Das Problem dürfte bei "Is Nothing Then Exit Sub" liegen. Wo müsste das ActiveSheet.Protect hin, damit das Blatt geschützt ist / bleibt, egal in welche Zelle ich klicke
Hier der derzeitige Code:
Dim Merk, Farbe
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
ActiveSheet.Unprotect
If Merk "" Then Range(Merk).Interior.ColorIndex = Farbe
If Intersect(Target, Range("Pflichtfelder")) Is Nothing Then Exit Sub
Merk = Target.Address
Farbe = Target.Interior.ColorIndex
Target.Interior.ColorIndex = 36
ActiveSheet.Protect
End Sub
Anzeige