Blattschutz setzen per Makro funktioniert nicht
24.01.2006 08:18:02
Rainer
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
Anzeige