Kolommen beveiligen maar niet kunnen sorteren/filteren

[Johil]

Beste mensen
Excellen is best leuk, maar op gegeven moment moet ik toch jullie hulp inroepen.
Het gaat hierbij om op het werkblad (slechts diverse) kolommen te beveiligen.
Dat lukt maar deels. Ik zag graag dat de gebruiker bepaalde kolommen mag invullen en kan sorteren/filteren.
Het eerste lukt wel, maar sorteren/filteren niet. Ondanks dat er hier al veel aandacht is besteed.
Bijgaand treffen jullie mijn bestandje aan (er zijn kolommen verborgen).
Bij de opstart wordt het werkblad beveiligd, daarna een artikel toevoegen en sorteren (werkblad wordt dus deels vrijgegeven) en dan weer beveiligen.
Wie kan hierbij helpen?
Met dank in vooruit.
Joop

 

[Cobbe]

Test deze kleine toevoeging eens:

Private Sub CommandButton1_Click()
Dim iRij As Long
    With ActiveSheet
        .Unprotect Password:=1234
        ActiveSheet.Range("$A$1:$M$1700").AutoFilter Field:=1
        Rows("1700:1700").Select
        Selection.Copy
        iRij = Cells(Rows.Count, 1).End(xlUp).Offset(1).Select
        .Protect Password:=1234[COLOR="#FF0000"], AllowFiltering:=True[/COLOR]
    End With
End Sub

 

[Johil]

Kolommen beveiligen maar niet kunnen sorteren/filteren

Beste Cobbe
Je ziet hoe snel je over iets heen kijkt.
Jouw aanvulling werkt perfect.
Hartstikke bedankt.
Met vriendelijke groet
Joop

 

[Johil]

Helaas kan ik beveiligde kolommen niet sorteren

Beste helpers
Ondanks de hulp van Cobbe lukt het mij nog steeds niet om te sorteren.
Als ik een nieuw artikel heb ingevoerd wil ik graag de rijen sorteren/filteren.
Alle kolommen moeten meedoen.
Omdat in de kolommen F, G, H, I, K en M formules staan mogen deze niet worden gewijzigd/verwijderd.
Het beveiligen van het werkblad met de aangevinkte uitzonderingen werkt helaas niet goed.
Wie (Cobbe misschien?) kan nogmaals mijn probleem bekijken en wellicht een oplossing aandragen.
Bij voorbaat mijn dank.
Joop

 

[Cobbe]

Je past de oplossingen ook niet toe die worden aangereikt.

Nu doet het bestand het wel, maar de code begrijp ik niet helemaal:

Private Sub Artikel_Click()
Dim iRij As Long
    With ActiveSheet
        .Unprotect Password:=1234
        ActiveSheet.Range("$A$2:$M$1700").AutoFilter Field:=1
        [COLOR="#FF0000"]Rows("1700:1700").Select
        Selection.Copy
        iRij = Cells(Rows.Count, 1).End(xlUp).Offset(1).Select[/COLOR]
        ActiveSheet.Protect Password:="1234", AllowFiltering:=True, AllowSorting:=True
    End With
End Sub

Wat die rode instructies moeten doen snap ik niet echt.

 

[Johil]

Helaas kan ik beveiligde kolommen niet sorteren

Beste Cobbe

Helaas lukt het niet. Er volgt steeds die melding "die cel of grafiek is beveiligd etc."
Ik heb het idee dat ik tegen "de kip en het ei" probleem aanloopt.
Als ik de beveiliging uitzet werkt het uiteraard, maar zijn de formules kwetsbaar.
Met de beveiliging erop kan ik niet filteren/sorteren.
Ik heb (dacht ik) alle mogelijkheden in het aanvinkscherm geprobeerd.
Is dit geen euvel van Excel?
Ik vind het erg fijn dat je wilt helpen.
Bedankt en vriendelijke groet.
Joop

 

[Cobbe]

Als je persé wil sorteren laat dit dan doen door een macro.

Hef de beveiliging op en sorteer, daarna zet je de beveiliging weer terug op.

 

[Johil]

Helaas kan ik beveiligde kolommen niet sorteren

Beste Cobbe
Dat lijkt mij ook het beste.
Dank voor je meedenken en aandragen van alternatieven.
Groet
Joop