Til að nota hvaða fjölvi sem er í Excel verða notendur þínir að virkja fjölvi. Það er, þeir verða að gefa Excel leyfi til að keyra fjölvi í umhverfi sínu. Til að virkja fjölvi smella notendur á Virkja efni hnappinn í öryggisviðvöruninni sem birtist fyrir ofan formúlustikuna.

Niðurstaðan er sú að þú getur skrifað öll fínu fjölvi í heiminum, en þau munu aldrei keyra nema notendur þínir virki fjölvi. Þetta vekur upp spurninguna; geturðu þvingað notendur til að virkja fjölvi? Svarið er já - með smá brögðum.
Hugmyndin er tiltölulega einföld. Þú býrð til blað sem heitir, segjum, START. Það blað inniheldur aðeins einfalda viðvörun sem segir að fjölva verði að vera virkt. Þú felur síðan öll blöð í vinnubókinni nema það START blað. Að lokum skrifar þú einfalda fjölvi sem birtir öll blöð þegar vinnubókin er opnuð.

Á þessum tímapunkti, þegar vinnubókin er opnuð, mun Excel biðja notandann um að virkja fjölvi. Notendur verða neyddir til að gera það vegna þess að allt sem þeir munu sjá er upphafsblaðið þitt. Hin blöðin verða falin!
Til þess að þessi tækni virki þarftu tvö fjölvi: Eitt fjölva felur allt nema START blaðið þegar vinnubókin lokar og annað fjölva sem sýnir allt nema START blaðið þegar vinnubókin opnast.
Fyrst skaltu takast á við þær aðgerðir sem þurfa að gerast þegar vinnubókin lokar. :
Virkjaðu Visual Basic Editor með því að ýta á ALT+F11 á lyklaborðinu þínu
Í Verkefnaglugganum, finndu nafn verkefnisins/vinnubókarinnar og smelltu á plúsmerkið við hliðina á því til að sjá öll blöðin.
Smelltu á This Workbook.
Í fellivalmyndinni Atburður, veldu BeforeClose viðburðinn.

Sláðu inn eða límdu eftirfarandi kóða:
Private Sub Workbook_BeforeClose(Hætta við sem Boolean)
'Skref 1: Lýstu breytunum þínum
Dim ws As Worksheet
'Skref 2: Sýndu upphafsblaðið
Sheets("START").Visible = xlSheetVisible
'Skref 3: Byrjaðu að fara í gegnum öll vinnublöðin
Fyrir hvern var í þessari vinnubók.Vinnublöð
'Skref 4: Athugaðu heiti hvers vinnublaðs
Ef ws.Name <> "BYRJA" Þá
'Skref 5: Fela blaðið
ws.Visible = xlVeryHidden
End If
'Skref 6: Farðu yfir í næsta vinnublað
Næsta ws
'Skref 7: Vistaðu vinnubókina
ActiveWorkbook.Save
End Sub
Í skrefi 1 lýstir þú yfir hlut sem heitir ws til að búa til minnisílát fyrir hvert vinnublað sem þú munt fara í gegnum.
Í skrefi 2 tryggirðu að START blaðið sé sýnilegt.
Í skrefi 3 byrjarðu lykkjuna og segir Excel að þú viljir meta öll vinnublöðin í þessari vinnubók.
Í skrefi 4 berðu einfaldlega saman nafnið START við blaðið sem er í lykkju. Þetta skref tryggir að aðgerðirnar sem koma næst séu notaðar á öll blöð nema START blaðið.
Ef nöfnin eru önnur, í skrefi 5 felur þú blaðið með því að nota xlVeryHidden eiginleikann. Þessi eiginleiki felur ekki aðeins blaðið heldur kemur einnig í veg fyrir að notandinn sýni það handvirkt með því að nota notendaviðmótið.
Þú lykkja til baka til að fá næsta blað í skrefi 6.
Í skrefi 7, eftir að öll blöð eru metin, vistar fjölvi vinnubókina og lýkur.
Nú þarftu að skrifa fjölvi til að takast á við allar aðgerðir sem þurfa að gerast þegar vinnubókin opnast:
Virkjaðu Visual Basic Editor með því að ýta á ALT+F11.
Í Verkefnaglugganum, finndu nafn verkefnisins/vinnubókarinnar og smelltu á plúsmerkið við hliðina á því til að sjá öll blöðin.
Smelltu á This Workbook.
Í fellivalmyndinni Atburður, veldu Opna viðburðinn.

Sláðu inn eða límdu eftirfarandi kóða:
Private Sub Workbook_Open()
'Skref 1: Lýstu breytunum þínum
Dim ws As Worksheet
'Skref 2: Byrjaðu að fara í gegnum öll vinnublöðin
Fyrir hvern var í þessari vinnubók.Vinnublöð
'Skref 3: Sýna öll vinnublöð
ws.Visible = xlSheetVisible
'Skref 4: Farðu yfir í næsta vinnublað
Næsta ws
'Skref 5: Fela upphafsblaðið
Sheets("START").Sýnlegt = xlVeryHidden
End Sub
Í skrefi 1 lýsir þú yfir hlut sem heitir ws til að búa til minnisílát fyrir hvert vinnublað sem þú ferð í gegnum.
Í skrefi 2 byrjarðu lykkjuna og segir Excel að þú viljir meta öll vinnublöðin í þessari vinnubók.
Í skrefi 3 opnar þú blaðið sem er í lykkju. Þetta skref birtir í raun öll vinnublöð þar sem hvert blað er gert sýnilegt.
Þú lykkja til baka til að fá næsta blað í skrefi 4.
Eftir að öll blöð eru gerð sýnileg felur skref 5 START blaðið. Aftur notarðu xlVeryHidden eignina þannig að notandinn geti ekki afhjúpað blaðið handvirkt með því að nota notendaviðmótið.
Eftir að báðar fjölvi hafa verið útfærðar, munt þú hafa vinnubók sem mun aðeins virka ef notandinn virkjar fjölva!