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

429

Äänestä

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • kunde

      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?

      • kunde
        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ä!

      • kunde
        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ä.

    Takaisin ylös

    Luetuimmat keskustelut

    1. Useita puukotettu Tampereella

      Mikäs homma tämä nyt taas on? "Useaa henkilöä on puukotettu Tampereen keskustassa kauppakeskus Ratinan lähistöllä." ht
      Tampere
      128
      2210

    2. Asiakas iski kaupassa varastelua tehneen kanveesiin.

      https://www.iltalehti.fi/kotimaa/a/33a85463-e4d5-45ed-8014-db51fe8079ec Oikein. Näin sitä pitää. Kyllä kaupoissa valtava
      Maailman menoa
      345
      1820

    3. Leipivaaran päällä on kuoleman hiljaista.

      Suru vai suuri helpotus...
      Puolanka
      39
      1504

    4. Kuka rääkkää eläimiä Puolangalla?

      Poliisi ampui toistakymmentä nälkiintynyttä eläintä Puolangalla Tilalta oli ollut karkuteillä lähes viisikymmentä nälkii
      Puolanka
      29
      1305

    5. Jos ei tiedä mitä toisesta haluaa

      Älä missään nimessä anna mitään merkkejä kiinnostuksesta. Ole haluamatta mitään. Täytyy ajatella toistakin. Ei kukaan em
      Ikävä
      94
      1173

    6. Määpä tiijän että rakastat

      Minua nimittäin. Samoin hei! Olet mun vastakappaleeni.
      Ikävä
      54
      1133

    7. Meneeköhän sulla

      oikeasti pinnan alla yhtä huonosti kuin mulla? Tai yhtä huonosti mutta jollain eri tyylillä? Ei olisi pitänyt jättää sua
      Ikävä
      28
      1035

    8. Muutama kysymys ja huomio hindulaisesta kulttuurista.

      Vedakirjoituksia pidetään historiallisina teksteinä, ei siis "julistuksena" kuten esimerkiksi Raamattua, vaan kuten koul
      Hindulaisuus
      327
      877

    9. Jumala puhui minulle

      Hän kertoi sinusta asioita, joiden takia jaksan, uskon ja luotan. Hän kuvaili sinua minulle ja pakahduin onnesta kuulles
      Ikävä
      104
      810

    10. Annan meille mahdollisuuden

      Olen avoimin mielin ja katson miten asiat etenevät. Mutta tällä kertaa sun on tehtävä eka siirto.Sen jälkeen olen täysil
      Ikävä
      53
      722
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt