Erreichen möchte ich, daß die nicht geschützten Zellen auswählbar sprich selektierbar sind. Wenn das Blattschutzmakro drübergelaufen ist, kann ich diese Spalten jedoch nicht mehr auswählen (und somit auch keine Werte eingeben)
Hier nun das Makro:
___________________________________________________________________
Sub blattschutz_ein()
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowFormattingRows:=True, AllowFiltering:=True, Password:="XXX"
ActiveSheet.EnableSelection = xlUnlockedCells
End Sub
___________________________________________________________________
Vielen Dank für eure Hilfe