Blattschutz
04.06.2006 16:24:31
Haegi
Ich habe folgendes Makro aufgezeichnet:
Sub Makro3()
' Makro3 Makro
ActiveSheet.Unprotect "test"
Range("C5:G64").Select
Selection.Sort Key1:=Range("F5"), Order1:=xlDescending, Key2:=Range("G5") _
, Order2:=xlAscending, Header:=xlNo, OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2:= _
xlSortNormal
Range("A1").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
Problem: Blattschutz wird nicht mehr mit Pawwort "test" geschützt.
Kann jemand helfen
Gruss Haegi