Exceli makro töövihiku salvestamiseks enne sulgemist

Siin esitatud makro on suurepärane viis kaitsta kasutajaid faili kogemata sulgemise eest enne salvestamist. Rakendamisel tagab see makro, et Excel salvestab töövihiku enne selle sulgemist automaatselt.

Tavaliselt hoiatab Excel kasutajaid, kes üritavad sulgeda salvestamata töövihikut, andes neile võimaluse enne sulgemist salvestada. Paljud kasutajad võivad aga hoiatusest mööda lasta ja klõpsata kogemata Ei, käskides Excelil sulgeda ilma salvestamata. Selle makroga kaitsete selle eest, salvestades enne sulgemist automaatselt.

Kuidas makro töötab

Koodi käivitab töövihiku sündmus BeforeClose. Kui proovite töövihikut sulgeda, käivitub see sündmus, käivitades sees oleva koodi. Koodi tuum on lihtne – see küsib kasutajatelt, kas nad soovivad töövihiku sulgeda. Seejärel hindab makro, kas kasutaja klõpsas OK või Tühista.

Exceli makro töövihiku salvestamiseks enne sulgemist

Sõnum, mida näete, kui proovite töövihikut sulgeda.

Hindamine toimub Select Case avaldusega. Lause Select Case on alternatiiv lausele If-Then-Else, mis võimaldab teil oma makrodes tingimusi kontrollida. Lause Select Case põhikonstruktsioon on lihtne:

Valige Case 
Juhtum on = 
       
Juhtum on =
       
Juhtum on =
       
Lõpeta Vali

Lause Select Case abil saate teha palju tingimuslikke kontrolle. Sel juhul kontrollite lihtsalt OK või Tühista. Heitke pilk koodile:

Privaatne alamtöövihik_BeforeClose (Tühista kui Boolean)
1. samm: aktiveerige sõnumikast ja alustage kontrollimist
    Valige Case MsgBox ("Salvesta ja sulge?", vbOKCancel)
2. samm: vajutati tühistamisnuppu, seega tühistage sulgemine
    Case Is = vbCancel
    Tühista = Tõene
3. samm: vajutati nuppu OK, nii et salvestage töövihik ja sulgege
    Juhtum on = vbOK
    ActiveWorkbook.Save
4. samm: sulgege avaldus Select Case
Lõpeta Vali
Lõpeta alam

1. sammus aktiveerite teatekasti avalduse Select Case tingimuskontrollina. Kasutage argumenti vbOKCancel, et tagada nuppude OK ja Tühista esitamine valikutena.

Kui kasutaja 2. toimingus klõpsas teatekastis nuppu Tühista, käsib makro Excelil tühistada sündmus Workbook_Close, edastades väärtusele Tühista Boolean.

Kui kasutaja klõpsas teatekastis nuppu OK, jõustub samm 3. Siin saate Excelil töövihiku salvestada. Ja kuna te ei määranud Tühista Booleani väärtuseks Tõene, jätkab Excel sulgemisega.

4. sammus sulgete lihtsalt juhtumi Select Case avalduse. Iga kord, kui loote Select Case, peate selle sulgema vastava lõpuvalikuga.

Kuidas makrot kasutada

Selle makro rakendamiseks peate selle kopeerima ja kleepima sündmuse koodi aknasse Workbook_BeforeClose. Makro sinna paigutamine võimaldab seda käivitada iga kord, kui proovite töövihikut sulgeda.

Aktiveerige Visual Basic Editor, vajutades Alt+F11.

Leidke projektiaknas 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 ripploendist Sündmus sündmus BeforeClose.

Tippige või kleepige kood vastloodud moodulisse.

Exceli makro töövihiku salvestamiseks enne sulgemist

Sisestage oma kood sündmusele Workbook BeforeClose.

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 […]