Lås af celler

Inde i VBA indføres følgende makro:
"Sub Auto_Open()


Application.ScreenUpdating = False


For Each ws In Sheets

With ws
.Unprotect Password:="SumProduct"
.Protect Password:="SumProduct", UserInterfaceOnly:=True
.EnableOutlining = True
End With

Next ws

Application.ScreenUpdating = True"

Også skulle det fungere - Det gøre det for mig :)

End Sub

Hej

Du bliver nok nødt til at lave 2 makroer.

En makro der gemmer det der senere skal foldes ud, og som bagefter beskytter arket.

Og en makro der fjerner beskyttelsen, og folder dine grupperinger ud, og afslutter med at beskytte arket.

Lav dem eventuelt med genvejstaster, tilknyt dem til et par knapper.

Jeg må indrømme, at jeg ikke er helt med - men det fungere umiddelbart fint med makroen som jeg har kommenteret i #1 - Tænker du når jeg skal redigere i det eller hvordan? Kan du måske komme med et eksempel og mere forklaring, så jeg kan se, hvorfor det du siger måtte være en god løsning :) PFT!

Hej 

Jeg skrev min kommentar medens #2 blev uploadet, havde jeg set denne havde jeg ikke kommenteret dit indlæg.

Jeg kan ikke skrive makroer i VBA, så når jeg skal bruge en mako bruger jeg optageren, og tilretter derefter hvis det er nødvendigt.

Jeg kan ikke skrive en makro som den du har kommenteret, så jeg afstår fra flere indlæg til denne tråd.

Fortsat god dag.

#4 - Det kan jeg hellere ikke, men fandt løsningen på nettet :)