Gebruik van oplopend en aflopend sorteren via AutoFilter in beveiligd blad met vergrendelde cellen
martin...@gmail.com
- in cellen A1:T1 kolomtitels
- in cellen B2:D108 gegevens, die mogen worden gewijzigd door een
willekeurig persoon
- in cellen E2:T108 formules, waarin verwijzingen naar de gegevens in
cellen A2:D108 staan
Alleen de cellen waar gegevens in moeten worden gevuld (A2:T108) zijn
niet vergrendeld, de overige cellen van het blad zijn geblokkeerd. Nu
heb ik cellen A1:T108 geselecteerd, en onder Data, Filter heb ik
AutoFilter aangevinkt. Daarna heb ik het werkblad beveiligd (Extra,
Beveiliging, Blad beveiligen) met een wachtwoord. Hierbij heb ik
aangevinkt, dat voor alle gebruikers is toegestaan:
- 'Vergrendelde cellen selecteren'
- 'Ontgrendelde cellen selecteren'
- 'Sorteren'
- 'AutoFilter gebruiken'
Na dit alles zijn alleen de cellen A2:T108 te wijzigen door een
willekeurig persoon, staan bij alle kolomtitels netjes de pijltjes met
dropdown-menu's van het AutoFilter, maar is het 'oplopend sorteren' en
'aflopend sorteren' van de cellen A2:T108 via het AutoFilter is NIET
mogelijk. Als ik dat probeer, krijg ik de foutmelding: 'De cel of
grafiek die u wilt wijzigen is beveiligd en dus alleen-lezen'.
Weet iemand wat ik moet doen, zodat het 'oplopend sorteren' en
'aflopend sorteren' van de cellen A2:H108 via het AutoFilter wel
mogelijk is?
Een macro maken om dit voor elkaar te krijgen is voor mij geen
probleem, maar dan moet ik op genoemd blad voor de cellen A2:T108 (20
kolommen oplopend sorteren en 20 kolommen aflopend sorteren =) 40
macro's aanmaken. En dan ook 40 CommandButtons toevoegen hiervoor, die
ik persoonlijk lelijk vind staan. En dat dan 21x, omdat het om 21
bladen gaat!
Ik hoop dat er een manier is om de 2 sorteer-functies van het
AutoFilter te kunnen gebruiken in een beveiligd blad, waarvan een deel
van de te sorteren cellen vergrendeld is. Dat zal mij in ieder geval
een hoop tijd besparen. Alvast bedankt voor een eventuele reactie.
ps. Ik heb Excel 2003 (Nederlandse versie)
Jan B.
misschien is onderstaande een oplossing voor je probleem:
Teken in de kolomkop van de eerste kolom die je wilt sorteren een
doorzichtige rechthoek met de tekenfunctie van Excel. Maak de rechthoek (met
ingedrukte alt-toets) exact passend in die cel. Verwijs de rechthoek naar
onderstaande macro.
Deze macro heeft een toggle-functie
Kopieer nu de rechthoek naar alle kolomkoppen van de kolommen die je wilt
sorteren.
geef de naam [=up] aan een willekeurige,niet-beveilgde cel in je werkmap.
Klaar
Sub sorteren()
Dim volgorde$, kol%
' bereken kolom van de cel waarop is geklikt (shape = rechthoek op die cel)
kol = ActiveSheet.Shapes(Application.Caller).TopLeftCell.Column
If [=up] = True Then volgorde = xlAscending Else volgorde = xlDescending
[=up] = Not [=up]
Range(Cells(2, kol), Cells(108, kol)).Sort Key1:=Cells(2, kol),
Order1:=volgorde
End Sub
--
met vriendelijke groet,
Jan B.
"martin...@gmail.com" schreef:
martin...@gmail.com
Allereerst bedankt voor je reactie! Ik heb nog niet de tijd gehad om
het uit te proberen, maar ik heb al wel een paar vragen bij de
oplossing die jij beschrijft:
- Het wordt met de door jou beschreven oplossing mogelijk om kolommen
oplopend te sorteren, door op de kolomtitel te klikken. Daarvoor moet
in de onbeveiligde cel in de werkmap met de naam [=up] 'True' staan.
Begrijp ik dat goed?
- En zo ja, hoe kun je dan aflopend sorteren? Moet er dan eerst in de
cel met de naam [=up] 'False' worden ingevoerd?
- Verder valt een doorzichtige rechthoek, die naar een 'sorteer-macro'
verwijst en precies zo groot is als de cel waarin een kolomtitel
staat, volgens mij dan over het 'pijltje' van het AutoFilter. Als
iemand dan het AutoFilter van een kolom gaat gebruiken (niet voor
sorteren, maar voor categorieën of (niet)-lege cellen filteren) door
op genoemd pijltje te klikken, worden de cellen A2:T108 direct
oplopend gesorteerd, wat meestal ongewenst is. Of is het AutoFilter
van een kolom te gebruiken zonder dat er direct oplopend gesorteerd
wordt?
Bovendien zal de macro ook een paar regels moeten bevatten die voor
het sorteren de beveiliging van het blad opheft, en daarna het blad
weer beveiligt. Anders kan de macro niets sorteren, omdat sommige te
sorteren cellen geblokkeerd zijn, en zal de foutmelding 'De cel of
grafiek die u wilt wijzigen is beveiligd en dus alleen-lezen' in beeld
komen.
Kun je mij enige duidelijkheid verschaffen? Anders ben ik misschien
veel tijd aan het maken van allemaal rechthoeken en macro's, die niet
100% werken.
Jan B.
voeg aan het begin van de routine toe:
activesheet.unprotect
en aan het eind
activesheet.protect.
sorteren gebeurt afwisslelend op- en aflopend als je herhaald drukt.
Zou moeten werken.
--
met vriendelijke groet,
Jan B.
"martin...@gmail.com" schreef:
> Hallo Jan B. (en anderen),
>
> Allereerst bedankt voor je reactie! Ik heb nog niet de tijd gehad om
> het uit te proberen, maar ik heb al wel een paar vragen bij de
> oplossing die jij beschrijft:
> - Het wordt met de door jou beschreven oplossing mogelijk om kolommen
> oplopend te sorteren, door op de kolomtitel te klikken. Daarvoor moet
> in de onbeveiligde cel in de werkmap met de naam [=up] 'True' staan.
> Begrijp ik dat goed?
> - En zo ja, hoe kun je dan aflopend sorteren? Moet er dan eerst in de
> cel met de naam [=up] 'False' worden ingevoerd?
> - Verder valt een doorzichtige rechthoek, die naar een 'sorteer-macro'
> verwijst en precies zo groot is als de cel waarin een kolomtitel
> staat, volgens mij dan over het 'pijltje' van het AutoFilter. Als
> iemand dan het AutoFilter van een kolom gaat gebruiken (niet voor
> sorteren, maar voor categoriekn of (niet)-lege cellen filteren) door