Sorter data efter beskyttelse af dele af arket

Jeg tror det kommer an på, hvilken version af Excel man har.
I Excel 2003 har man mulighed for, at give lov til sortering.

Jeg har selv haft samme problem med Excel 97, og her var løsningen at lave en kommandoknap, der kører en makro, hvor arkets password fjernes - der sorteres - og der sættes atter password.

Makroen er noget i den her retning (sorterer på kolonne A):

Sub Test()
Application.ScreenUpdating = False
ActiveSheet.Unprotect Password:="dit password"
Columns("A:A").Select
    Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    Range("A1").Select
ActiveSheet.Protect Password:="dit password"
Application.ScreenUpdating = True
End sub

Ups, der tror jeg du har ramt lidt over målet:-)

1/ Jeg bruger Excel 2000
2/ Aner ikke hvordan jeg opretter en Makro

Har prøvet at gå på Funktioner->Makro og der får jeg options Indspil ny Makro eller makroer

Hvordan laver jeg en komandoknap og tilføjer den makro du omtaler?

"hvis" der er andre metoder end brugen af en Makro vil det til alle tider være bedst da det er "omtalt" at vores interne mailsetup senere vil blokere for mail med filer der har en makro (af sikkerhedshensyn).

Men hvis en makro er den eneste vej pt. så æder jeg den, og må prøve at overbevise IT-afdelingen om at jeg bare SKAL have den igennem:-)

//Beach

OK :o)

1) Jeg har ikke selv arbejdet med XL2000, så jeg ved ikke om funktionen findes hér, men det vil absolut være det letteste.
Fra XL2002 har man muligheden for ved tildeling af password, at afkrydse de ting andre må have lov til at gøre i det beskyttede ark, bl.a. sortering. Så hvis du får en række af afkrydsnings muligheder lige under feltet, hvor du skriver dit password, så er den hjemme. Ellers tror jeg kun der er muligheden med makroen.

2) Når du har dit ark åbnet trykker du ALT+F11, herefter vil der dukke et nyt vindue op med overskriften Microsoft Visual Basic.
Ude i venstre side skulle der gerne være et vindue med overskriften Project - VBA project, ellers kan du få det frem ved at vælge -> View -> Project Explorer, her vælger du dit regneark og klikker derefter på -> Insert -> Module.
Du dobbelklikker nu på Module1, og indsætter makroen, du kopiere den bare herfra og sætter den ind.
Du får lige koden igen, denne gang har jeg sat kommentarer ind så du kan se hvad de enkelte linier gør (vises med grøn farve i makrovinduet).
Du kan ændre navnet på makroen fra Test til noget mere logisk, f.eks. Sorter. Der skal bare stå Sub før og () efter dit makronavn.

Sub Test()
Application.ScreenUpdating = False 'slår skærmopdateringen fra mens makroen kører
ActiveSheet.Unprotect Password:="dit password" 'fjerner beskyttelsen fra arket
Columns("A:A").Select 'denne og de næste 3 linier sorterer på kolonne A
    Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    Range("A1").Select 'vælger celle A1
ActiveSheet.Protect Password:="dit password" 'beskytter arket igen
Application.ScreenUpdating = True 'slår skærmopdateringen til igen
End Sub

Husk lige at ændre til dit password de to steder, hvor der står "dit password".
Når koden er indsat i modulet, kan du lukke vinduet igen.
I regnearket højreklikker du i værktøjslinien og vælger formularer. Eller -> Vis -> Værktøjslinjer -> Formularer.
Her vælger du den, der hedder "Knap", og indsætter din knap et sted i arket på samme måde som en tekstboks.
Der fremkommer nu et vindue, hvor du skal tildele en makro til din knap. Her vælger du Test (eller dit navn for makroen) og klikker OK.
Hvis du klikker på navnet af knappen, kan du ændre navnet til f.eks. Sortér. Herefter klikker du bare et sted i arket, og nu skulle knappen gerne virke, så den sorterer kolonne A.
Du skal lige være opmærksom på, at når arket er beskyttet, kan man heller ikke ændre udseende, størrelse, placering m.m. på kommandoknappen. Så hvis du vil ændre på disse ting, skal beskyttelsen først fjernes.

OK, kan se at din makro vælger de rigtige celler i et testark, og makroen låser også arket op så der ikke mere er noget password. Men derefter får jeg en error 400.
Kan se den låser arket op da jeg på ny kan beskytte arket, se dertil virker det jo så OK

Et par ting der måske også er vigtig når vi nu er i gang-->
Det er cellerne A8 til Z99 der skal sorteres efter værdi i B og ikke A (sorry) Jeg har en hel del flettede celler og alle mine formler over kolonne 8 så de skal udelukkes af sorteringen:-)

Jeg prøver lige at uploade arket....

//Beach

Har lagt de sidste 3 dage her--->
http://www.freestyle.dk/eksperten/excel/eksp_test.xls

Vil måske gøre det noget nemmere at hjælpe mig *S*
Bemærk at jeg med arket normalt kan få over 12 måneder tilbage i tiden, men hvis du bare kan få det til at virke med template så tager jeg det kedelige at flytte alle data over!

//Beach

Ja det var en hjælp. Du kan ikke sortere på flettede celler.

Jeg har ændret i makroen og indsat en kommandoknap. Det opdaterede ark har jeg smidt her ->
http://www.shm.dk/dansk/eksp_test.xls

Denne makro kører i det aktive ark, så du kan bare kopiere kommandoknappen i de ark, hvor du ønsker, den skal virke.

Du skal bare lige være opmærksom på, at en makro ikke er dynamisk, som f.eks. en formel. Indsætter du f.eks. en linie over række 8, så sorteringen herefter skal foretages fra A9 til Z100, skal du ind og ændre det i makro-koden.
Dvs. password er det samme i alle ark, området der sorteres i, og kolonnen der sorteres efter, også er det samme.

Den ændrede kode ser nu sådan ud (omdøbt til Sorter og password sat til 123):

Sub Sorter()
Application.ScreenUpdating = False 'slår skærmopdateringen fra mens makroen kører
ActiveSheet.Unprotect Password:="123" 'fjerner beskyttelsen fra arket
Range("A8:Z99").Select 'sorterer i området A8 til Z99, sortering ud fra kolonne B
    Selection.Sort Key1:=Range("B8"), Order1:=xlAscending, Header:=xlNo, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    Range("A8").Select 'vælger celle A8
ActiveSheet.Protect Password:="123" 'beskytter arket igen
Application.ScreenUpdating = True 'slår skærmopdateringen til igen
End Sub

Kan ikke lige få det til at virke, men vender tilbage når der er lidt mere tid. Håber ikke der går mere end en uges eller 2. Smider link til nye ? her...

Kan du ikke lige kaste et svar nu, så er der sikkert mere at hente i det næste:-)

//Beach

Svar :o)