Hoi,
alvast bedankt voor de assistentie.
Ik heb al een gedeelte van de macro kunnen aanpassen zodat ik de beveiliging eraf kan halen, maar het terugbeveiligen met paswoord lukt niet.
Ik krijg een syntaxisfout melding. (vermoedelijk op de password optie)
H
ierbij de macro:
ActiveSheet.Unprotect (abc)
Range("A2:C92").Select
Selection.Sort Key1:=Range("B3"), Order1:=xlAscending, Key2:=Range("C3") _
, Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2 _
:=xlSortNormal
ActiveSheet.Protect Password:="abc" DrawingObjects:=True, Contents:=True, Scenarios:=True
groetjes