Sortering af beskyttet ark i Excel

Hvad med at nøjes med et password til at åbne excel-filen...altså lad være med at beskytte de enkelte celler?

Det kan sagtens lade sig gøre.
Man kan lægge et særskilt password på VBA-koden, så brugeren ikke kan lure selve ark-koden.

Password ligges på koden i VBA editoren via Tools/VBA-project propreties underfanebladet Protection.

Den nemmeste måde at lure hvordan en makro skal se (i grundtræk) er ved at starte båndoptageren - udføre handlingen - stoppe båndoptageren, og lure koden. Evt. rette den lidt til.

kmlo >> Jamen, velkommen til Eksperten. Jeg synes 30 points er rimeligt nok for et spørgsmål af denne type - men hvis du ikke får den respons, du havde håbet på, kan du altid afsætte flere points ved at bruge linket ude i venstre side.

Det er vist ikke nødvendigt med flere point - vi giver kmlo \"arbejds\"svar, så kmlo selv kan lave det. 30 helt OK.

Følgende kode bruges til at indsætte password

ActiveWorkbook.Protect Password := \"drowssap\"

Denne fjerne den igen:
ActiveWorkbook.Unprotect Password := \"drowssap\"

Jeg takker for tippet om beskyttelse af VBA-koden, men i øvrigt skal jeg vist uddybe hovedproblemet lidt:
Det er ingen sag at lave en makro som 1) fjerner arkbeskyttelsen, 2) sorterer efter kriterier, som jeg selv koder i makroen, og 3) beskytter arket igen.
Den kan f.eks. se sådan ud (med sortering af række 5-10 efter kolonne A (stigende) og dernæst kolonne B (faldende) samt adgangskoden \"1\"):
    ActiveSheet.Unprotect Password:=\"1\"
    Rows(\"5:10\").Select
    Selection.Sort Key1:=Range(\"A5\"), Order1:=xlAscending, Key2:=Range(\"B5\") _
        , Order2:=xlDescending
    ActiveSheet.Protect Password:=\"1\"
Men hvis brugeren selv skal vælge sorteringskriterierne, hvad gør man så? Jeg kunne sikkert indsætte 6 på hinanden følgende inputboxe med tilknyttede variable, hvor brugeren skal indtaste 3 kolonnebogstaver og 3 sorteringsrækkefølger, og så bruge variabelværdierne i VBA-koden, men det virker meget gumpetungt og brugerfjendtligt.
Findes der ikke noget smartere, som f.eks. hvis man kunne afbryde makroen, når Excels egen sorterings-dialogbox venter på input (det kan man måske også, men hvordan?).
Eller en helt tredie slags løsning - blot brugeren kan få lov at sortere ulåste data i et beskyttet ark?
Fint for mig med \"arbejdssvar\", jeg mangler \"bare lige\" det rigtige spor at forfølge!
PS: Kan man vente med at afvise/acceptere/give points, eller skal man gøre det løbende?

Jeg har ikke testet følgende, men det kan du jo gøre :-) Jeg tror det vil virke.

Sub SorteringsTEST()
    ActiveSheet.Unprotect Password:=\"1\"
   
    Rows(\"5:10\").Select
    Application.Dialogs(xlDialogSort).Show
   
    ActiveSheet.Protect Password:=\"1\"
End Sub

Stor tak til flemmingdahl - det virker.
30 points på vej

Dejligt - blot accepter mit svar :-)

En anden mulighed var at lave en userform, hvorfra man fra nogle rullelister kunne vælge sine kriterier.

Det er rigtigt jan, men det vil vist være at over programmere (noget jeg selv gør tit!!!) hehe

Det har du ret i flemming, men til gengæld ville det være noget mere brugervenligt. Desuden er man så heller ikke bundet af de få kriterier som der er mulighed for i standard dialogboksen.

Men ok, det ligger vist ud over 30 point grænsen ....