Seuraavalla käskyllä saan pikasuodatuksen toimimaan suojatussa taulukossa (solut lukittu), mutta onnistuuko lajittelu suojattuun taulukkoon?
ActiveWorkbook.Worksheets(2).EnableAutoFilter = True
Tietenkin jos teen oman napin ja vähän enemmän koodia, mutta pystyykö tuon sorttausnapin aktivoimaan samaan tapaan kuin pikasuodatuksen?
Koodia kehiin
Pasi
6
442
Vastaukset
siinä missä laitat suojauksen koodissa lisäät vaan seuraavan
UserInterfaceOnly:=True eli esim.
Worksheets("Sheet1").Protect Password:="kunde", UserInterfaceOnly:=True
et tarvitse sitten enää tuota riviäkään... ActiveWorkbook.Worksheets(2).EnableAutoFilter = True- Pasi
Jostain syystä ei toimi, minulla on käytössä Excel 97, johtuisiko siitä? (Helpistäkään en löytänyt tuolla mitään).
En saanut toimimaan, ei kyllä tule virhettäkään tuosta koodista. Pikasuodatuskaan ei näyttäisi toimivan? Pasi kirjoitti:
Jostain syystä ei toimi, minulla on käytössä Excel 97, johtuisiko siitä? (Helpistäkään en löytänyt tuolla mitään).
En saanut toimimaan, ei kyllä tule virhettäkään tuosta koodista. Pikasuodatuskaan ei näyttäisi toimivan?ei toimi 97 versiossa. 2000 versiosta lähtien ton pitäs muistaakseni toimia ja uudemmissa versioissahan on noita lukituksen poistoja sitten lisäilty enemmänkin, joten sorry!
- Pasi
kunde kirjoitti:
ei toimi 97 versiossa. 2000 versiosta lähtien ton pitäs muistaakseni toimia ja uudemmissa versioissahan on noita lukituksen poistoja sitten lisäilty enemmänkin, joten sorry!
Eipä tuo niin vakavaa ole, jätän taulukon suojaamatta, siihen kun kuitenkin tiedot haetaan toisesta taulukosta ja tiedot on helppo hakea uudelleen jos joitakin tietoja katoaa.
Excel 2002 versiossa näyttää olevan pikasuodatuksen valintoina nousevasti ja laskevasti lajittelu joten tuo alkuperäinenkin koodi siinä varmaa saa aikaan halutun toiminnon mutta tuo kertomasi on tietenkin hyvä pistää korvan taakse, kiitos siitä! Pasi kirjoitti:
Eipä tuo niin vakavaa ole, jätän taulukon suojaamatta, siihen kun kuitenkin tiedot haetaan toisesta taulukosta ja tiedot on helppo hakea uudelleen jos joitakin tietoja katoaa.
Excel 2002 versiossa näyttää olevan pikasuodatuksen valintoina nousevasti ja laskevasti lajittelu joten tuo alkuperäinenkin koodi siinä varmaa saa aikaan halutun toiminnon mutta tuo kertomasi on tietenkin hyvä pistää korvan taakse, kiitos siitä!voithan koodilla poistaa suojauksen lajittelun ajaksi ja sitten suojata taulukon taas esim.
Worksheets("Sheet1").Unprotect Password:="kunde"
lajittelukoodi tähän
...
Worksheets("Sheet1").Protect Password:="kunde"- Pasi
kunde kirjoitti:
voithan koodilla poistaa suojauksen lajittelun ajaksi ja sitten suojata taulukon taas esim.
Worksheets("Sheet1").Unprotect Password:="kunde"
lajittelukoodi tähän
...
Worksheets("Sheet1").Protect Password:="kunde"Voisin kyllä tehdä noin ja eräässä toisessa sovelluksessa olen tehnytkin.
Nyt tekemässäni sovelluksessa Excel tekee kaikki makroilla suoritettavat temput Auto_Open proseduurissa ja tämän jälkeen käyttäjän tarvitsee käyttää vain pikasuodatusvalikoita ja lajittelua.
Tässä sovelluksessa taulukkoon haetaan päivitetyt tiedot aina kun taulukko avataan, joten taulukon suojausta tärkeämmäksi ominaisuudeksi nousee se ettei käyttäjän tarvitse käyttää muita kuin vanhoja tuttuja ja turvallisia Excelin oman työkalurivin painikkeita. Ymmärrät varmaan mitä tarkoitan ;)
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Eutanasia - miksi eläimelle sallitaan armokuolema, mutta ihmiselle ei?
Olen pitkään ihmetellyt yhtä asiaa Suomessa. Kun koira kärsii parantumattomasta sairaudesta ja kovista kivuista, eläinlä1311335Veli Sofia teki urosmehiläisen työn
Paljastaessaan kuinka TPS:ssä ei joukkuehenki toimi sooloilijoiden vuoksi, jonka takia koko seura ei pärjää kilpailussa373863Unisex-vessat
Ahdistaa. Miksi kaikki pitää tasapäistää tasa-arvon nimissä? Tasa-arvo on sitä, että kunnioitetaan sukupuolien erilaisu1103036Sosiaalidemokratia romahtanut kautta maailman
nuoret eivät enää kannata järjetöntä aatetta, joten demarien täytyy hakea kannattajia mamuista. Ruotsin sos.demit jo kie1252391Miksi Seta ja Sofia Virta ei vaadi muslimeita kunnioittamaan priden-arvoja?
Kuten tiedetään niin islam ei hyväksy sitä mitä pride edustaa. Seta-pomo Mikkonen nosti hirveän äläkän kun yksi tepsin812045Vastuun ottaminen omasta hyvinvoinnista
Olen huomannut tuttavapiirissäni ihmisiä, joilla on mt-diagnooseja. Sen sijaan, että millekään asialle yritettäisiin teh1961761Sofia Virralle täydet 12 pistettä!
Kun ei jäänyt mukaan vähemmistöjen sortamista epäsuorasti tukevaan joukkueeseen. Urheilijoiden pitäisi olla esikuvia.2991006Miksi Hotelli Kainuuta dissataan?
Ihmetyttää tämä jatkuva yhden yrityksen arvosteleminen. Ikäänkuin mikään ei olisi hyvin. Kuitenkin yritys työllistää, ta17790Toisten elämän moralisointi
Eikö kukin voisi keskittyä lähinnä omaan elämäänsä? Jos jollakulla muulla on tunteita, ajatuksia, tai tekoja oman suhte143745- 53699