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?
Vastaukset 6
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? 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")
@KundeEntä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ä. 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ä.
Luetuimmat keskustelut
Hallituksen järjestämä spektaakkeli tuo vessanpyttykeissi
Että olisi kymmenien kansanedustajien kodeissa käyty ihan tuosta vaan, eikä kukaan kansanedustaja kerro niin käyneen, va4421723Sysmän "ilon päivä"
Ja taas palaa hirveä määrä verorahoja, ihan turhaan soopaan. Eikö nämä jotka kuntapolitiikassa valittavat ja tuhoaa vaan951156Timo Vornanen.
On siinäkin yksi täystampio. Eipä ihme, että persukannattajat sen eduskuntaan äänestikin.94960Uskon, että saataisiin kaikki selvitettyä
Mutta yhteys on jäissä, minä olen jäässä, enkä osaa tai uskalla enää lähestyä. Se vaan on niin. Naiselta Jos ei ole hyvä63889Joka ilta mietin
sua❤️Mitä teet, missä meet? Kaipaatko yhtään? Yön tullen toivotan mielessäni sulle hyvää yötä ja aamuisin huomenet. Joka43793Riitastako pelastaja
Riitta jätti hakemuksen. Hyvä niin. On ainakin yksi mistä ottaa. Pertsa ei taida aikuistua koskaan ja Pekka hoiteli silt49788Tässä ovat Elämäni biisi -vieraat lauantai 3.10. - Yksi vieras on todellinen suomalaisten suosikki
Jos menisit Elämäni biisiin, mikä olisi elämäsi biisi ja miksi? Elämäni biisi tulee suorana lähetyksenä Tampereelta. K11773- 123763
- 60740
- 39739
- 61707
En voi kertoa meistä kenellekään
Minulla on ikävä sinua mies.. Oon yrittänyt taas unohtaa, mutta silti tulet mieleeni lähes päivittäin. Eihän meitä voi o37627- 50626
- 45577
- 34575
Luottamus
Luotan vain siihen mitä tapahtuu IRL. Anonyymipalstan vihjailut eivät merkitse minulle mitään.95562Kadutko mies sitä miten reagoit?
..siihen sotkuun, jonka jälkeen mikään ei ole ollut kuin ennen. 🥺49557- 92556
- 52536
Millaisen talvitakin haluaisit?
Talveen vielä aikaa, mutta talvitakit tulleet kauppoihin. Millainen olisi unelmiesi talvitakki? Itse tykkäisin jostain85518