Klientide sundimine lubama Exceli makrosid

Mis tahes makro kasutamiseks Excelis peavad kasutajad makrod lubama. See tähendab, et nad peavad andma Excelile loa oma keskkonnas makrode käitamiseks. Makrode lubamiseks klõpsavad kasutajad valemiriba kohal kuvatavas turbehoiatuses nuppu Luba sisu.

Klientide sundimine lubama Exceli makrosid

Põhimõte on see, et saate kirjutada kõik maailma väljamõeldud makrod, kuid need ei tööta kunagi, kui teie kasutajad makrosid ei luba. See tekitab küsimuse; Kas saate sundida kasutajaid makrosid lubama? Vastus on jah – väikese trikiga.

Idee on suhteliselt lihtne. Loote lehe nimega START. Sellel lehel on ainult lihtne hoiatus selle kohta, et makrod peavad olema lubatud. Seejärel peidate töövihikus kõik lehed, välja arvatud see START-leht. Lõpuks kirjutate lihtsa makro, mis paljastab töövihiku avamisel kõik lehed.

Klientide sundimine lubama Exceli makrosid

Sel hetkel, kui töövihik on avatud, palub Excel kasutajal makrod lubada. Kasutajad on sunnitud seda tegema, sest nad näevad ainult teie alguslehte. Teised lehed peidetakse!

Selle tehnika toimimiseks vajate kahte makrot: üks makro peidab töövihiku sulgemisel kõik peale START-lehe ja teine ​​makro, mis kuvab töövihiku avamisel kõik peale START-lehe.

Esmalt tegelege toimingutega, mis peavad toimuma töövihiku sulgemisel. :

Aktiveerige Visual Basic Editor, vajutades klaviatuuril klahvikombinatsiooni ALT+F11

Otsige projekti aknast üles oma projekti/töövihiku nimi ja klõpsake kõigi lehtede nägemiseks selle kõrval olevat plussmärki.

Klõpsake nuppu See töövihik.

Valige rippmenüüst Sündmus sündmus BeforeClose.

Klientide sundimine lubama Exceli makrosid

Sisestage või kleepige järgmine kood:

Privaatne alamtöövihik_BeforeClose (Tühista kui Boolean)
1. samm: deklareerige oma muutujad
  Dim ws töölehena
2. samm: avage algusleht
  Sheets("START").Visible = xlSheetVisible
3. samm: alustage kõigi töölehtede sirvimist
  For Every Ws In ThisWorkbook.Worksheets
4. samm: kontrollige iga töölehe nime
  Kui ws.Name <> "START" Siis
5. samm: peitke leht
  ws.Visible = xlVeryHidden
  Lõpeta Kui
6. samm: liikuge järgmise töölehe juurde
  Järgmine ws
7. samm: salvestage töövihik
  ActiveWorkbook.Save
Lõpeta alam

1. sammus deklareerite objekti nimega ws, et luua mälukonteiner iga töölehe jaoks, mida läbite.

2. sammus veendute, et START-leht on nähtav.

3. sammus alustate silmust, öeldes Excelile, et soovite hinnata kõiki selle töövihiku töölehti.

4. sammus võrdlete lihtsalt nime START lehega, mida praegu silmustatakse. See samm tagab, et järgmised toimingud rakendatakse kõigile lehtedele, välja arvatud START-leht.

Kui lehtede nimed on erinevad, peidate sammus 5 lehe atribuudi xlVeryHidden abil. See omadus mitte ainult ei peida lehte, vaid takistab kasutajal seda kasutajaliidese abil käsitsi peitmast.

Järgmise lehe saamiseks 6. sammus liigute tagasi.

Sammus 7, pärast kõigi lehtede hindamist, salvestab makro töövihiku ja lõpeb.

Nüüd peate kirjutama makro, et käsitleda kõiki toiminguid, mis töövihiku avanemisel juhtuma peavad:

Aktiveerige Visual Basic Editor, vajutades ALT+F11.

Otsige projekti aknast üles oma projekti/töövihiku nimi ja klõpsake kõigi lehtede nägemiseks selle kõrval olevat plussmärki.

Klõpsake nuppu See töövihik.

Valige rippmenüüst Sündmus suvand Ava sündmus.

Klientide sundimine lubama Exceli makrosid

Sisestage või kleepige järgmine kood:

Privaatne alamtöövihik_Open()
1. samm: deklareerige oma muutujad
  Dim ws töölehena
2. samm: alustage kõigi töölehtede sirvimist
  For Every Ws In ThisWorkbook.Worksheets
3. samm: kuvage kõik töölehed
  ws.Visible = xlSheetVisible
4. samm: liikuge järgmise töölehe juurde
  Järgmine ws
5. samm: peida algusleht
  Sheets("START").Nähtav = xlVägaHidden
Lõpeta alam

1. sammus deklareerite objekti nimega w, et luua mälukonteiner iga töölehe jaoks, mida läbite.

2. sammus alustate silmust, öeldes Excelile, et soovite hinnata kõiki selle töövihiku töölehti.

3. toimingus näitate praegu silmuses oleva lehe peitmise tagasi. See samm paljastab tõhusalt kõik töölehed, kui iga leht muudetakse nähtavaks.

Järgmise lehe saamiseks 4. sammus liigute tagasi.

Kui kõik lehed on nähtavaks tehtud, peidab samm 5 START-lehe. Jällegi kasutate atribuuti xlVeryHidden, et kasutaja ei saaks kasutajaliidese abil lehte käsitsi peita.

Kui mõlemad makrod on rakendatud, on teil töövihik, mis töötab ainult siis, kui kasutaja lubab makrod!

Leave a Comment

10 näpunäidet paremateks Microsoft Teamsi koosolekuteks

10 näpunäidet paremateks Microsoft Teamsi koosolekuteks

Uurige kümmet nõuannet Microsoft Teamsiga parema koosolekukogemuse saamiseks, sealhulgas märkmete tegemine, tausta hägustamine, vaigistamine ja koosolekute salvestamine.

Kuidas Word 2013 dokumentides kommentaare üle vaadata ja kustutada

Kuidas Word 2013 dokumentides kommentaare üle vaadata ja kustutada

Lühikeses Word 2013 dokumendis saate kommentaare hõlpsalt sirvida ja uurida. Siit leiate samm-sammult, kuidas kommentaare lugeda ja eemaldada.

Kuidas parandada Word 2016 tavalist malli

Kuidas parandada Word 2016 tavalist malli

Mõnikord varitseb kurjus selles, mis peaks olema Word 2016 peamises mõistlikkuse hoidlas: tavalises mallifailis. Õpi, kuidas taastada normaalne mall ja eemaldada probleemid.

Kuidas lisada lõigu taane Word 2013-s

Kuidas lisada lõigu taane Word 2013-s

Kuidas lisada lõigu taane Word 2013-s, et luua selgem ja professionaalsem ilme. Meie juhend aitab sul lihtsasti navigeerida Wordi funktsioonide kaudu ja tutvustab esimeses reas taande ning rippuva taande lisamise viise.

Kuidas Outlook 2016-s uusi kiireid samme luua

Kuidas Outlook 2016-s uusi kiireid samme luua

Lisaks kuuele kiirtoimingule, mis kuvatakse Outlooki esmakordsel installimisel, on teil valida veelgi rohkemate Quick Step mallide hulgast.

Kustutage oma PowerPointi slaididelt pliiatsi ja esiletõstja joonised

Kustutage oma PowerPointi slaididelt pliiatsi ja esiletõstja joonised

Kui olete esitluse ajal PowerPointi slaididele joonistamiseks kasutanud pliiatsit või markerit, saate joonised järgmise esitluse jaoks salvestada või need kustutada, nii et järgmisel näitamisel alustate puhaste PowerPointi slaididega. Pliiatsi ja markeri jooniste kustutamiseks järgige neid juhiseid: joonte kustutamine […]

Stiili teegi sisu rakenduses SharePoint 2010

Stiili teegi sisu rakenduses SharePoint 2010

Style'i teek sisaldab CSS-faile, XSL-faile ja eelmääratletud mallilehtede, lehepaigutuste ja juhtelementide poolt kasutatavaid pilte rakenduses SharePoint 2010. CSS-failide leidmiseks avaldamissaidi stiiliteegist: valige saidi toimingud → vaade. Kogu saidi sisu. Ilmub saidi sisu. Style raamatukogu asub […]

Vormindage numbreid tuhandetes ja miljonites Exceli aruannetes

Vormindage numbreid tuhandetes ja miljonites Exceli aruannetes

Ärge uputage oma publikut tohutute numbritega. Microsoft Excelis saate parandada oma armatuurlaudade ja aruannete loetavust, vormindades numbrid tuhandetes või miljonites.

Kuidas SharePointi saite jagada ja jälgida

Kuidas SharePointi saite jagada ja jälgida

Siit saate teada, kuidas kasutada SharePointi suhtlusvõrgustiku tööriistu, mis võimaldavad üksikisikutel ja rühmadel suhelda, koostööd teha, jagada ja ühendada.

Kuidas teisendada kuupäevi Excelis Juliani vormingutesse

Kuidas teisendada kuupäevi Excelis Juliani vormingutesse

Julia kuupäevi kasutatakse tootmiskeskkondades sageli ajatemplina ja partiinumbri kiirviitena. Seda tüüpi kuupäevade kodeerimine võimaldab jaemüüjatel, tarbijatel ja teenindusagentidel tuvastada toote valmistamise aja ja seega toote vanuse. Juliuse kuupäevi kasutatakse ka programmeerimises, sõjaväes ja astronoomias. Erinevad […]