Välilehden suojaaminen?

hädässä

Tarkoitus olisi saada taulukossa oleva "Data" välilehti suojattua niin ettei sitä pääse katsomaan kuin salasanan avulla. Tarkoitus olisi kuitenkin niin että makrojen ja VB koodit pääsisivät tähän välilehteen käsiksi. Onko tämä mahdollista? Miten?

6

1300

Äänestä

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • kunde

      suojaa VBA projekti salasanalla ja VBA puolelta pistä Data välilehden visible arvoksi=0 xlSheetHidden. Tällöin ei tartte koodia rukkailla, eli ei tartte Unprotect ja Protect juttujen kanssa painia
      @Kunde

      • hädässä

        Välilehden sai kyllä piiloon, mutta kun makro haluaa käsitellä tietoja Data välilehdestä, niin se kaatuu siihen kun se ei saa valittua Data välilehteä.

        Elikkä tähän:
        Sheets("Data").Select

        Eli Data lehdeltä lähinnä copy pastea tartteisi käyttää. Vai pitäisikö tämä tehdä niin että makron suorittamisen ajaksi laitettaisiin Data välilehti näkyviin ja lopuksi taas piilotettaisiin?

      • kunde
        hädässä kirjoitti:

        Välilehden sai kyllä piiloon, mutta kun makro haluaa käsitellä tietoja Data välilehdestä, niin se kaatuu siihen kun se ei saa valittua Data välilehteä.

        Elikkä tähän:
        Sheets("Data").Select

        Eli Data lehdeltä lähinnä copy pastea tartteisi käyttää. Vai pitäisikö tämä tehdä niin että makron suorittamisen ajaksi laitettaisiin Data välilehti näkyviin ja lopuksi taas piilotettaisiin?

        ei toimi ei toimi kun taulukko on piilotettu. Tietenkin voit koodilla laittaa sen näkyville ennen kopiointia ja sitten piilottaa kun tarvittavat jutut tehty

        esim.

        Application.ScreenUpdating = False
        Sheets("Data").Visible = xlSheetVisible
        Sheets("Data").Select
        'koodia
        Sheets("Data").Visible = xlSheetVeryHidden
        Application.ScreenUpdating = True

        mutta...
        toimii se näinkin ilman kikkailuja ;-)

        Sheets("Data").Range("A1:A10").Copy Destination:=Sheet2.Range("A1")

        @Kunde

      • hädässä
        kunde kirjoitti:

        ei toimi ei toimi kun taulukko on piilotettu. Tietenkin voit koodilla laittaa sen näkyville ennen kopiointia ja sitten piilottaa kun tarvittavat jutut tehty

        esim.

        Application.ScreenUpdating = False
        Sheets("Data").Visible = xlSheetVisible
        Sheets("Data").Select
        'koodia
        Sheets("Data").Visible = xlSheetVeryHidden
        Application.ScreenUpdating = True

        mutta...
        toimii se näinkin ilman kikkailuja ;-)

        Sheets("Data").Range("A1:A10").Copy Destination:=Sheet2.Range("A1")

        @Kunde

        Entäs sitten, minulla on taulukossa nappi 'tallenna' ja jaa. Tämä nappi poistaa sitten Data taulukon viemästä turhee tilaa lopullisesta taulukosta kun sieltä on poimittu tarvittavat tidot

        Sheets("Data").Delete

        toimii oikein hyvin, mutta se häiritsee että Excel varmistaa kysymällä poiston. Saako tätä kysymystä ohjitettua jotenkin? Eli poistelisi sen välilehden ilman kyselyitä.

      • kunde
        hädässä kirjoitti:

        Entäs sitten, minulla on taulukossa nappi 'tallenna' ja jaa. Tämä nappi poistaa sitten Data taulukon viemästä turhee tilaa lopullisesta taulukosta kun sieltä on poimittu tarvittavat tidot

        Sheets("Data").Delete

        toimii oikein hyvin, mutta se häiritsee että Excel varmistaa kysymällä poiston. Saako tätä kysymystä ohjitettua jotenkin? Eli poistelisi sen välilehden ilman kyselyitä.

        koodin alkuun Application.DisplayAlerts = False
        ja loppuun Application.DisplayAlerts = True

        muista sitten varmistaa, että jos virhe ilmenee niin virheenkorjauksessa asetat
        Application.DisplayAlerts = True tai jos ei ole mitään virheen tsekkausta, niin ainakin alkuun laitat sitten On Error Resume Next

    • Rndmz

      Vastaus ehkä "hieman" myöhässä, mutta asiasta tietoa etsiville:

      "Sheets("xxxxxxx").Select" tilalle
      "Sheets("xxxxxxx").Activate ja homma pelaa taas.

    Ketjusta on poistettu 0 sääntöjenvastaista viestiä.

    Takaisin ylös

    Luetuimmat keskustelut

    1. Mitä hyvää rikkaiden hyysääminen Suomelle tuonut?

      Minäpä vastaan: ei yhtikäs mitään, vaan pelkkää vahinkoa. Demareiden ansiosta Suomen valtio oli käytännössä vielä 1980-
      Maailman menoa
      24
      7435

    2. Grahn-Laasonen: "Kansalainen joutuu pettymään, jos demareita äänestää"

      Ministeri viittaa tuoreeseen Helsingin Sanomien juttuun, jossa demarijohtajan keinoja Suomen suunnan muuttamiseksi esite
      Maailman menoa
      98
      6096

    3. Tytti Tuppurainen häpäisi Suomen epäisänmaallisella lausunnollaan USA:n ulkoministerille Rubiolle.

      https://www.is.fi/politiikka/art-2000011816267.html Miksi Tytti Tuppurainen päästetään antamaan typeriä lausuntoja noin
      Maailman menoa
      114
      4163

    4. Mitä haluaisit sanoa tänään hänelle?

      Rakastamallesi ihmiselle.
      Ikävä
      155
      4154

    5. Pystyisitkö olla

      Kanssani kaiken sotkun jälkeen? Ainakaan tunteet ei ole loppuneet
      Ikävä
      163
      1901

    6. Paras muistosi

      kaivatustasi?
      Ikävä
      61
      1768

    7. Miksi miehen on hankala ymmärtää

      Että hänen on tehtävä aloite. Niin sen kuuluu mennä luonnollisesti.
      Ikävä
      136
      1660

    8. Hei kuule nainen

      Seuraavan kerran kun nähdään, puhu minulle jooko! Näin toivoo mies
      Ikävä
      38
      1458

    9. Mitä sä musta oikein haluat?!

      Anna olla jo.
      Ikävä
      29
      1428

    10. Mitä puuhailet nyt ystävänpäivänä

      nainen, kun et ole mun kanssa?
      Ikävä
      45
      1414
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt