Spalte sperren. Sprung in Zelle nebenan
23.09.2003 21:37:28
Claus
Ich habe ich eine Tabelle eine Schutzfunktion eingebaut, die eine Eintragung verhindert. Beim Versuch wird eine MsgBox geöffnet und anschließen nach Zelle A1 gesprungen.
Wenn nun aber ein Anwender irgendwo in Zeile 4000 arbeitet, ist er bestimmt ungehalten, immer seine bisherige Zeile zu suchen, wenn er aus versehen auf die zu schützende Spalte geklickt hat.
Kann ist die Select-Anweisung so umgestalten, dass der Benutzer in die Zelle links oder rechts neben der zu schützenden Zelle geschubst wird? Wie muss ich den Code umgestalten?
Gruß, Claus
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
' ein bestimmter Bereich darf nicht ausgewählt werden
Dim RaBereich As Range, RaZelle As Range
' Bereich der Wirksamkeit
Set RaBereich = Range("C:C")
' ActiveSheet.Unprotect
For Each RaZelle In Range(Target.Address)
If Not Intersect(RaZelle, RaBereich) Is Nothing Then
Range("C1").Select
MsgBox ("Keine manuelle Eintragung erlaubt.")
Exit For
End If
Next RaZelle
' ActiveSheet.protect
End Sub
Code eingefügt mit Syntaxhighlighter 2.4