Sortering af låste celler evt. med VBA

Kan du ikke blot tillade sortering når du beskytter arket

Jeg har forsøgt dette. Uden succes desværre. Jeg ved ikke om det er på grund af at matrixen der skal sorteres både indeholder låste og ulåste celler.

ok må jeg lige se din kode, så skal jeg rette den til

Jeg har lagt et link til excel-arket øverst i spørgsmålet. Deri er det hele. De små makro-optagelser jeg har lavet i de to ark hedder blot:



Sub SortFD()
'
' Makro11 Makro
' Makro indspillet 14-01-2010 af Rune Vang Thomsen
'
' Genvejstast:Ctrl+w
'
    Range("A3:Q300").Select
    Selection.Sort Key1:=Range("F3"), Order1:=xlDescending, Key2:=Range( _
        "D3"), Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase _
        :=True, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, _
        DataOption2:=xlSortNormal
    Range("A3").Select
End Sub



og 




Sub SorterProvider()
'
' SorterProvider Makro
' Makro indspillet 14-01-2010 af Rune Vang Thomsen
'
' Genvejstast:Ctrl+e
'
    Range("A2:C50000").Select
    Selection.Sort Key1:=Range("B2"), Order1:=xlDescending, Header:=xlNo, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    Range("A2").Select
End Sub

Skal lige vide i hvile celler du evt. retter i begge ark

I fanebladet: "Provider" skal al min data skrives.
I fanebladet: "Kunde bestillinger" skriver jeg KUN varenummeret (Søjle D). Ud fra varenummeret henter Søjle E og F deres data fra fanebladet "Provider".

Hvis det giver nogen mening :)

Det handler altså om at skrive de rå data ind i "provider", og så lade det andet faneblad hente data derfra.

Højreklik på K.B arket's fane
Vælg Vis programkode og indsæt koden der
Koden kører (sorterer) hver gang du ændrer noget i området D3:D5000

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("D3:D5000")) Is Nothing Then Exit Sub
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:=False, AllowSorting:=True
    Range("A3:Q300").Select
    Selection.Sort Key1:=Range("F3"), Order1:=xlDescending, Key2:=Range( _
        "D3"), Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase _
        :=True, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, _
        DataOption2:=xlSortNormal
    Range("A3").Select
ActiveSheet.Unprotect
End Sub

Højreklik på Provider's arkfane
Vælg Vis programkode og indsæt koden der
Koden kører (sorterer) hver gang du ændrer noget i området D3:D50000

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A2:C50000")) Is Nothing Then Exit Sub
    Range("A2:C50000").Select
    Selection.Sort Key1:=Range("B2"), Order1:=xlDescending, Header:=xlNo, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    Range("A2").Select
End Sub

I din første kode-stump får jeg en error.
Hvis arket er ubeskyttet, så får kode-stumpen arket til at blive beskyttet efter en ændring af en af cellerne.
MEN.
Jeg får en bug - den sorterer ikke. Men du har ganske vist fået arket til at auto-"et-eller-andet" når jeg ændrer en celleværdi i matrixen.

ups fik lige byttet om på beskyttelsen :-)

i KB arket denne

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("D3:D5000")) Is Nothing Then Exit Sub
ActiveSheet.Unprotect
    Range("A3:Q300").Select
    Selection.Sort Key1:=Range("F3"), Order1:=xlDescending, Key2:=Range( _
        "D3"), Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase _
        :=True, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, _
        DataOption2:=xlSortNormal
    Range("A3").Select
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:=False, AllowSorting:=True
End Sub

I det andet ark "provider" auto-sorterer den hver gang en celle ændres i matrixen (A3:A5000) Hvilket er super fint. Der er dog heller ikke nogen celler som er beskyttede.


Hvsi jeg vil have "provider" til kun at auto-opdatere ved indtastning i søjle C, er det så ikke sådan her det skal se ud?


Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("C2:C50000")) Is Nothing Then Exit Sub
    Range("A2:C50000").Select
    Selection.Sort Key1:=Range("B2"), Order1:=xlDescending, Header:=xlNo, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    Range("A2").Select
End Sub

jo præcis

skal den også kodes til at auto beskytte arket ?

Nu virker det i begge ark. Og jeg har testet, at jeg blot kan ændre de celler der får arket til at auto-sortere:

If Intersect(Target, Range("C2:C50000")) Is Nothing Then Exit Sub

1000 tak for assistancen. Nu har jeg tilmed noget mere jeg kan eksperimentere ud fra. Synes det der VBA er svært at komme rigtigt i gang med (uden bøger og kurser).

Hvis jeg kunne give dig 1000 points havde du fået det!
Men læg et svar - så kan jeg berige dig med 150 af slagsen.

Igen tak for din hurtige assistance - og dine korte og præcise forklaringer.

Mvh. Rune

Nej, ark 2 behøver ikke at blive auto-beskyttet. Så skal det vel u-beskyttes hver gang man skal skrive noget nyt i det? eller?

ja som du ser i det andet arks kode, der fjernes beskyttelsen i linie 3 og sættes igen i næst sidste linie,
Men hvis ikke det er nødvendigt, er det naturligvis bedst at undgå

velbekom

Hvis jeg må komme med et tillægsspørgsmål ang. beskyttelsen af arket. Så har jeg fundet ud af hvordan (hvis arket er beskkyttet med en kode) at VBA-koden kan låse arket op ved at skrive

ActiveSheet.Unprotect Password:="DAK"  (eksempel)

Man kan sikkert også få VBA-koden til at sætte koden tilbage igen, så koden ikke blot er blank.

Men i alle tilfælde kan jeg stadig højreklikke på fanebladet og se "programkode" - hvori kodeordet jo står. Og så er der jo ikke meget fidus ved at have en kode længere?

Jeg tænker på - kan "vis programkode" beskyttes, så man ikke kan se koden derfra? Eller er vi så ude i noget helt andet?

Det er ikke vigtigt. Jeg er blot nysgerrig, nu hvor jeg har lært lidt :)

Mvh. Rune

Ja man kan godt skjule/beskytte koden i VBA (intet er dog 100% sikkert)

I VBA-editoren (ALT+F11) vælger du VBAProject Properties.. i menuen Tools
Under fanen Protection sætter du flueben ved "Lock Project for viewing" og indtaster et kodeord