Exceli makro töövihikute sulgemise vältimiseks

Mõnikord te ei soovi, et kasutaja sulgeks Exceli töövihiku ilma konkreetset andmeid sisestamata. Sellistes olukordades oleks kasulik keelata kasutajal töövihiku sulgemine seni, kuni sihtlahter on täidetud (nagu siin näidatud). Siin tulebki sisse see vahva makro.

Exceli makro töövihikute sulgemise vältimiseks

Väldi sulgemist, kuni konkreetne lahter on asustatud.

Kuidas makro töötab

Selle koodi käivitab töövihiku sündmus BeforeClose. Kui proovite töövihikut sulgeda, käivitub see sündmus, käivitades sees oleva koodi. See makro kontrollib, kas sihtlahter (antud juhul lahter C7) on tühi. Kui see on tühi, siis sulgemisprotsess tühistatakse. Kui C7 pole tühi, salvestatakse ja suletakse töövihik:

Privaatne alamtöövihik_BeforeClose (Tühista kui Boolean)
1. samm: kontrollige, kas lahter C7 on tühi
Kui Sheets("Leht1").Range("C7").Väärtus = " Siis
2. samm: kui lahter on tühi, tühistage sulgemine ja teavitage kasutajat
    Tühista = Tõene
    MsgBox "Cell C7 ei saa olla tühi"
3. samm: kui lahter ei ole tühi, salvestage ja sulgege
Muidu
    ActiveWorkbook.Close SaveChanges:=Tõsi
Lõpeta Kui
Lõpeta alam

Samm 1 kontrollib, kas C7 on tühi.

Kui C7 on tühi, jõustub 2. toiming, mis tühistab sulgemisprotsessi, edastades tõeväärtuse Tühista tõeväärtuse. Samm 2 aktiveerib ka sõnumikasti, mis teavitab kasutajat tema rumalusest (noh, see pole päris nii karm, tõesti).

Kui lahter C7 ei ole 3. sammus tühi, salvestatakse ja suletakse töövihik.

Kuidas makrot kasutada

Selle makro rakendamiseks peate selle kopeerima ja kleepima sündmuse koodi aknasse Workbook_BeforeClose. Makro siia 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öövihikute sulgemise vältimiseks

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