ich habe verschiedne Sachen gesehen, um Löschen, Verändern etc. von beliebig auswählbaren Zellbereichen zu verhindern, ohne die Nachteile eines permanenten Blattschutzes zu haben. Hat mich alles nicht überzeugt. Nun habe ich mir das hier ausgedacht:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim gesperrterBereich As Range
Set gesperrterBereich = Union( _
Range("1:1") _
, Range("A:A") _
, Range("A3:B4") _
)
If Intersect(Target, gesperrterBereich) Is Nothing Then
ActiveSheet.Unprotect Password:="test"
Else
ActiveSheet.Protect Password:="test"
End If
End Sub
Sobald man also eine Zelle in Zeile 1 markiert, oder auch eine ganze Spalte, tritt Blattschutz ein.
Trotzdem kann man zB noch zelle d1 löschen, indem man d5 auswählt, rechts klickt, und Zellen löschen->ganze Spalte ausführt.
Wie, um Himmels willen, kann man das ohne permanenten Blattschutz verhindern?
Martin