Koodia kehiin

Pasi

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?

6

435

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • 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

    1. IL - PerSut tykittää - Vaaralliset tappajat vankilaan jopa loppuelämäksi!!

      Entistä rajumpi elinkautinen tulee – Vaaralliset tappajat vankilaan jopa loppuelämäksi Henkirikosten uusijat voidaan ja
      Maailman menoa
      172
      22237
    2. Some kuhisee Sanna Marinista: "Wau"

      Sanna Marinia hehkutetaan. Muun muassa Jodelissa kommentoidaan The Sunday Timesin julkaisemaa kuvaa Marinista. Hän ant
      Maailman menoa
      73
      9440
    3. Sannalla tänään vuorossa The Daily Show

      Eli nyt mennään jo satiirin puolelle. Tuohan on vähän kuten Lindströmin ohjelma Suomessa.
      Maailman menoa
      28
      7421
    4. Onko rajojen kiinnipitäminen ihmisoikeuksien vastaista?

      Maahanmuutosta puhutaan usein niin kuin kyse olisi vain numeroista ja rajoista. Kyse on kumminkin ihmisistä, jotka halua
      Maahanmuutto
      323
      6619
    5. Äärioikeistopurran nukke Petteri Lapanen paniikissa

      Kun Suomen historian paras pääministeri antoi vankan lausunnon, kuinka "keskustelu politiikassa on käpertynyt lähinnä va
      Maailman menoa
      79
      6291
    6. SIELTÄ SE TULI: Kepu-Kurvinen: "Emme enää lähde punavihreään hallitukseen"

      Nyt muuten nauretaan loppuviikko, että tähänkö kaatui Lindtmanin pääministerihaaveet. "Antti Kurvisen mukaan puolue ei
      Maailman menoa
      180
      5904
    7. Täysi ryöpytys Sanna Marinille ulkomailla.

      https://www.iltalehti.fi/ulkomaat/a/f699d84f-fa53-4dba-8718-2c395017fc55 Sanna Marinin kirja saa todella tylyn vastaanot
      Maailman menoa
      33
      4920
    8. HS - Sanna Marinin kirja on priimaluokan vedätys!

      Kirja-arvio|Toivo on tekoja tulisi ensisijaisesti nähdä maineen rahallisen hyödyntämisen voimaannuttavana merkkipaaluna.
      Maailman menoa
      94
      4565
    9. Minja Koskelan "istumista" kertovassa uutisessa ei sanottu persuista mitään

      eli jälleen kerran äärivasemmistolainen valehtelee, hän kun väittää että juuri persut ovat lähetelleet Koskelalle vähemm
      Maailman menoa
      97
      4319
    10. "Rauhanomainen" miekkari hesassa: "Eläköön aseellinen vastarinta" - lakana

      Kyseessä on Suomen Palestiinalaisten yhdistyksen viime perjantaina järjestämä ”Hiljainen kynttiläkulkue Palestiinalaiste
      Maailman menoa
      115
      3770
    Aihe