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
Mitä haluaisit minusta mies
Meidän tilanne on ns.vaikea, eikä olla koskaan puhuttu tai edes ehditty puhua siitä, että mihin me tällä kaikella säätäm751279- 561101
Kun olet noin varovainen, niin tehdään näin
Ollaan luontevia kun tavataan. Ei mitään paineita. Halataan lämpimästi toisiamme, ja sitä hetkeä voi viivyttää, kunnes s451051Martina Aitolehti ja Nanna Karalahti - Rajua röykytystä nyrkkeilymatsista "Ettei naisten botoksi..."
Martina Aitolehti ja Nanna Karalahti nyrkkeilevät toisiaan vastaan Immu Fight Nightissa. Naiset ovat saaneet osakseen k75949Harmittaa kun en saa edes tietää
miten elämässäs menee. Niinkin tärkeä asia, et miten jaksat. Kuinka terveys jne. Olet niin tärkeä, että haluaisin tietää64860Martina ja Levin kiinteistö
Ei ole enää "mun Leviä". Kiinteistöllä uudet omistajat ja välillä palautui takaisin rakennuttajallekin, miksköhän.348840Selvitetään tämä meidän välinen juttu
Kertoisin sulle, mitä sinussa näen ja mikä viehättää eniten. Pitkä tarina tulisi siitä, mutta haluisin nähdä, kun kuunte21754- 40737
Onko jo liian törkeää? Selviytyjät Suomi herättää kummastusta
Selviytyjät Suomi juhlistaa 10. tuotantokauttaan - ja tiedossa on entistä ankarampaa menoa. Mutta mennäänkö jo liian pi9715Teköäly löytää teidät
Tästä on ollut ennenkin puhetta. Muistan Sergein tehneen aiheesta aloituksen, ja Disse analysoi minua ja kirjoituksiani183669