Prisiljavanje vaših klijenata da omoguće Excel makronaredbe

Za korištenje bilo koje makronaredbe u Excelu, vaši korisnici moraju omogućiti makronaredbe. Odnosno, moraju dati Excelu dopuštenje za pokretanje makronaredbi u svom okruženju. Da bi omogućili makronaredbe, korisnici kliknu gumb Omogući sadržaj u sigurnosnom upozorenju koje se pojavljuje iznad trake formule.

Prisiljavanje vaših klijenata da omoguće Excel makronaredbe

Zaključak je da možete napisati sve moderne makronaredbe na svijetu, ali one se nikada neće pokrenuti osim ako vaši korisnici ne omoguće makronaredbe. Ovo postavlja pitanje; možete li natjerati korisnike da omoguće makronaredbe? Odgovor je potvrdan - uz malo prijevara.

Ideja je relativno jednostavna. Stvorite list pod nazivom, recimo, START. Taj list sadrži samo jednostavno upozorenje koje navodi da makronaredbe moraju biti omogućene. Zatim sakrijete sve listove u radnoj knjizi osim tog START lista. Konačno, napišete jednostavnu makronaredbu koja otkriva sve listove kada se radna knjiga otvori.

Prisiljavanje vaših klijenata da omoguće Excel makronaredbe

U ovom trenutku, kada se radna knjiga otvori, Excel će od korisnika tražiti da omogući makronaredbe. Korisnici će biti prisiljeni na to jer će sve što će vidjeti je vaš početni list. Ostali listovi će biti skriveni!

Da bi ova tehnika funkcionirala, potrebne su vam dvije makronaredbe: jedna makronaredba skriva sve osim START lista kada se radna knjiga zatvori, a druga makronaredba koja otkriva sve osim START lista kada se radna knjiga otvori.

Prvo se pozabavite radnjama koje se trebaju dogoditi kada se radna knjiga zatvori. :

Aktivirajte Visual Basic Editor pritiskom na ALT+F11 na tipkovnici

U prozoru Projekt pronađite naziv projekta/radne knjige i kliknite znak plus pored njega da biste vidjeli sve listove.

Kliknite Ova radna knjiga.

U padajućem okviru Događaj odaberite događaj Prije zatvaranja.

Prisiljavanje vaših klijenata da omoguće Excel makronaredbe

Upišite ili zalijepite sljedeći kod:

Privatna pod Radna knjiga_Prije zatvaranja(Odustani kao Boolean)
'Korak 1: Deklarirajte svoje varijable
  Dim ws As Worksheet
'Korak 2: Otkrijte početni list
  Sheets("START").Visible = xlSheetVisible
'Korak 3: Počnite pregledavati sve radne listove
  Za svaki ws U ovoj radnoj knjizi.Radni listovi
'Korak 4: Provjerite naziv svakog radnog lista
  Ako ws.Name <> "START" Zatim
'Korak 5: Sakrij plahtu
  ws.Visible = xlVeryHidden
  Završi ako
'Korak 6: Pređite na sljedeći radni list
  Sljedeći ws
'Korak 7: Spremite radnu bilježnicu
  ActiveWorkbook.Save
Kraj Sub

U 1. koraku deklarirate objekt nazvan ws za stvaranje memorijskog spremnika za svaki radni list kroz koji ćete proći.

U 2. koraku osiguravate da je START list vidljiv.

U 3. koraku započinjete s petljom, govoreći Excelu da želite procijeniti sve radne listove u ovoj radnoj knjizi.

U 4. koraku jednostavno uspoređujete naziv START s listom koji je trenutno u petlji. Ovaj korak osigurava da se sljedeće radnje primjenjuju na sve listove osim na START list.

Ako su nazivi listova različiti, u koraku 5 skrivate list pomoću svojstva xlVeryHidden. Ovo svojstvo ne samo da skriva list već i sprječava korisnika da ga ručno otkrije pomoću korisničkog sučelja.

Vratite se u petlju da biste dobili sljedeći list u koraku 6.

U 7. koraku, nakon što se procijene svi listovi, makronaredba sprema radnu knjigu i završava.

Sada morate napisati makro za rukovanje svim radnjama koje se trebaju dogoditi kada se radna knjiga otvori:

Aktivirajte Visual Basic Editor pritiskom na ALT+F11.

U prozoru Projekt pronađite naziv projekta/radne knjige i kliknite znak plus pored njega da biste vidjeli sve listove.

Kliknite Ova radna knjiga.

U padajućem okviru Događaj odaberite događaj Otvori.

Prisiljavanje vaših klijenata da omoguće Excel makronaredbe

Upišite ili zalijepite sljedeći kod:

Privatna pod radna knjiga_Open()
'Korak 1: Deklarirajte svoje varijable
  Dim ws As Worksheet
'Korak 2: Počnite pregledavati sve radne listove
  Za svaki ws U ovoj radnoj knjizi.Radni listovi
'Korak 3: Otkrijte sve radne listove
  ws.Visible = xlSheetVisible
'Korak 4: Pređite na sljedeći radni list
  Sljedeći ws
'Korak 5: Sakrij početni list
  Sheets("START").Vidljivo = xlVeryHidden
Kraj Sub

U 1. koraku deklarirate objekt nazvan ws za stvaranje memorijskog spremnika za svaki radni list kroz koji prolazite.

U 2. koraku započinjete s petljom, govoreći Excelu da želite procijeniti sve radne listove u ovoj radnoj knjizi.

U 3. koraku otkrivate list koji je trenutno u petlji. Ovaj korak učinkovito otkriva sve radne listove jer svaki list postaje vidljiv.

Vratite se u petlju da biste dobili sljedeći list u koraku 4.

Nakon što su svi listovi vidljivi, korak 5 skriva START list. Opet, koristite svojstvo xlVeryHidden tako da korisnik neće moći ručno otkriti list pomoću korisničkog sučelja.

Nakon implementacije obje makronaredbe, imat ćete radnu knjigu koja će raditi samo ako korisnik omogući makronaredbe!

Leave a Comment

Kako postaviti upit u bazu podataka MS Access 2019

Kako postaviti upit u bazu podataka MS Access 2019

Naučite kako postaviti upite u Access bazi podataka uz jednostavne korake i savjete za učinkovito filtriranje i sortiranje podataka.

Osnove tabulatora u programu Word 2013

Osnove tabulatora u programu Word 2013

Tabulatori su oznake položaja u odlomku programa Word 2013 koje određuju kamo će se točka umetanja pomaknuti kada pritisnete tipku Tab. Otkrijte kako prilagoditi tabulatore i optimizirati svoj rad u Wordu.

Kako odabrati i poništiti odabir blokova teksta u Wordu 2010

Kako odabrati i poništiti odabir blokova teksta u Wordu 2010

Word 2010 nudi mnoge načine označavanja i poništavanja odabira teksta. Otkrijte kako koristiti tipkovnicu i miš za odabir blokova. Učinite svoj rad učinkovitijim!

Kako uvući pasus u Wordu 2013

Kako uvući pasus u Wordu 2013

Naučite kako pravilno postaviti uvlaku za odlomak u Wordu 2013 kako biste poboljšali izgled svog dokumenta.

Kako otvoriti i zatvoriti PowerPoint 2019 prezentacije

Kako otvoriti i zatvoriti PowerPoint 2019 prezentacije

Naučite kako jednostavno otvoriti i zatvoriti svoje Microsoft PowerPoint 2019 prezentacije s našim detaljnim vodičem. Pronađite korisne savjete i trikove!

Kako crtati jednostavne objekte u PowerPointu 2013

Kako crtati jednostavne objekte u PowerPointu 2013

Saznajte kako crtati jednostavne objekte u PowerPoint 2013 uz ove korisne upute. Uključuje crtanje linija, pravokutnika, krugova i više.

Kako filtrirati podatke u programu Access 2016

Kako filtrirati podatke u programu Access 2016

U ovom vodiču vam pokazujemo kako koristiti alat za filtriranje u programu Access 2016 kako biste lako prikazali zapise koji dijele zajedničke vrijednosti. Saznajte više o filtriranju podataka.

Formule za zaokruživanje brojeva u Excelu

Formule za zaokruživanje brojeva u Excelu

Saznajte kako koristiti Excelove funkcije zaokruživanja za prikaz čistih, okruglih brojeva, što može poboljšati čitljivost vaših izvješća.

Kako dizajnirati različita zaglavlja i podnožja za različite stranice u programu Word 2013

Kako dizajnirati različita zaglavlja i podnožja za različite stranice u programu Word 2013

Zaglavlje ili podnožje koje postavite isto je za svaku stranicu u vašem Word 2013 dokumentu. Otkrijte kako koristiti različita zaglavlja za parne i neparne stranice.

Excel izvješća: prilagođeno oblikovanje brojeva

Excel izvješća: prilagođeno oblikovanje brojeva

Poboljšajte čitljivost svojih Excel izvješća koristeći prilagođeno oblikovanje brojeva. U ovom članku naučite kako se to radi i koja su najbolja rješenja.