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?
Välilehden suojaaminen?
hädässä
6
1307
Vastaukset
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
Perussuomalaiset kirjoittaa vain positiivisista uutisista
Ei tarvitse palstaa paljon seurata, kun sen huomaa. Joka ainoa positiivinen uutinen Suomen taloudesta tai ylipäätään, ni1096606Kuka on UMK-suosikkisi? UMK26 paljastuksia lauantai 28.2.
UMK26 tänä lauantaina! UMK26 tulee suorana Tampereelta ja nyt selviää, kuka pääsee edustamaan Suomea Euroviisuihin. M884241L/over ja Jani Volanen! Minkä arvosanan 4-10 annat roolityöstä?
Psykologinen trilleri L/over - ikuisesti minun on koukuttanut tv-katsojat ruudun ääreen. Kun Roosa (Krista Kosonen) tapa453559TTK:n jättänyt Vappu Pimiä rehellisenä MasterChef-kuvauksista: "Höh..."
Vappu Pimiä on uusi MasterChef Suomi -tuomari. Viime vuonna Tanssii Tähtien Kanssa jäi taakse, ja nyt vuorossa on uusi a72941Natomaa hyökkäsi Iraniin
Näemme nyt tällä hetkellä Natomaan nimeltä Yhdysvallat, joka toimii aika pitkälti perinteisen kansainvälisen lain ulkopu6251551- 66978
Rakas tiedät, että toivoisin
Kuulevani sinusta. Tiedät, että viestisi tekisi minut ihan onnelliseksi. Että äänesi kuuleminen saisi minut leijumaan ja55953- 9939
Trump aloitti III maailmansodan tänään.
Narsisti ja mielipuoli Trump pitäisi saada pois, miten se onnistuisi parhaiten?193918Osaako kukaan sanoa?
Mikä on syy siihen, että apulaisidiootti yrittää kaikin keinoin haitata kaikkea yrittämistä Ähtärissä? Nyttkin pilkkaa j47899