Ka raste kur nuk dëshironi që një përdorues të mbyllë një libër pune në Excel pa futur një pjesë të caktuar të të dhënave. Në këto situata, do të ishte e dobishme t'i mohoni përdoruesit mundësinë për të mbyllur librin e punës derisa qeliza e synuar të plotësohet (siç tregohet këtu). Këtu hyn kjo makro e shkëlqyeshme.

Parandaloni mbylljen derisa të popullohet një qelizë specifike.
Si funksionon makroja
Ky kod aktivizohet nga ngjarja BeforeClose e librit të punës. Kur përpiqeni të mbyllni librin e punës, kjo ngjarje ndizet, duke ekzekutuar kodin brenda. Kjo makro kontrollon nëse qeliza e synuar (qeliza C7, në këtë rast) është bosh. Nëse është bosh, procesi i mbylljes anulohet. Nëse C7 nuk është bosh, libri i punës ruhet dhe mbyllet:
Nën-libër pune privat_BeforeClose (Anulo si Boolean)
'Hapi 1: Kontrolloni për të parë nëse qeliza C7 është bosh
If Sheets("Sheet1").Range("C7").Vlera = "Atëherë
'Hapi 2: Nëse qeliza është bosh, anuloni mbylljen dhe tregojini përdoruesit
Anulo = E vërtetë
MsgBox "Qelia C7 nuk mund të jetë bosh"
'Hapi 3: Nëse qeliza nuk është bosh, ruajeni dhe mbylleni
Përndryshe
ActiveWorkbook.Mbyll SaveChanges:=E vërtetë
Fundi Nëse
Fundi Nën
Hapi 1 kontrollon për të parë nëse C7 është bosh.
Nëse C7 është bosh, Hapi 2 hyn në fuqi, duke anuluar procesin e mbylljes duke kaluar True në Anulo Boolean. Hapi 2 gjithashtu aktivizon një kuti mesazhi që njofton përdoruesin për marrëzinë e tij ose të saj (epo, nuk është aq e ashpër, me të vërtetë).
Në hapin 3, nëse qeliza C7 nuk është bosh, libri i punës ruhet dhe mbyllet.
Si të përdorni makro
Për të zbatuar këtë makro, duhet ta kopjoni dhe ngjisni në dritaren e kodit të ngjarjes Workbook_BeforeClose. Vendosja e makros këtu e lejon atë të funksionojë sa herë që përpiqeni të mbyllni librin e punës:
Aktivizoni Visual Basic Editor duke shtypur Alt+F11.
Në dritaren e projektit, gjeni emrin e projektit/librit tuaj të punës dhe klikoni shenjën plus pranë tij për të parë të gjitha fletët.
Klikoni This Workbook.
Në listën rënëse Ngjarje, zgjidhni ngjarjen BeforeClose.
Shkruani ose ngjisni kodin në modulin e krijuar rishtazi.
![Një makro Excel për të parandaluar mbylljen e librave të punës]()
Fusni kodin tuaj në ngjarjen e Librit të Punës BeforeClose.