Blattschutz für Bereiche
28.01.2005 16:36:59
Th.
hab folgenden Code
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column > 2 Then Exit Sub
Application.EnableEvents = False
Application.Undo
Application.EnableEvents = True
MsgBox "Änderungen sind hier nicht zulässig", vbCritical
If Selection.Count = 1 Then
Target.Select
End If
End Sub
Hiermit schütze ich ja den Bereich der Spalten A und B.
Wie gebe ich aber einen kleineren Bereich an?
zB A5 und A21 bis D400 und F21 bis H400?
MfG aus Berlin
Thomas