Detyrimi i klientëve tuaj për të aktivizuar makro Excel

Për të përdorur çdo makro në Excel, përdoruesit tuaj duhet të aktivizojnë makro. Kjo do të thotë, ata duhet t'i japin Excel-it lejen për të ekzekutuar makro në mjedisin e tyre. Për të aktivizuar makro, përdoruesit klikojnë butonin Aktivizo përmbajtjen në paralajmërimin e sigurisë që shfaqet mbi shiritin e formulës.

Përfundimi është se ju mund të shkruani të gjitha makrot e zbukuruara në botë, por ato nuk do të funksionojnë kurrë nëse përdoruesit tuaj nuk aktivizojnë makro. Këtu lind pyetja; a mund t'i detyroni përdoruesit të aktivizojnë makro? Përgjigja është po - me një mashtrim të vogël.

Ideja është relativisht e thjeshtë. Ju krijoni një fletë të quajtur, le të themi, FILLO. Ajo fletë përmban vetëm një paralajmërim të thjeshtë që thotë se makrot duhet të aktivizohen. Më pas i fshehni të gjitha fletët në librin e punës, përveç asaj fletë START. Së fundi, ju shkruani një makro të thjeshtë që hap të gjitha fletët kur hapet libri i punës.

Në këtë pikë, kur hapet libri i punës, Excel do t'i kërkojë përdoruesit të aktivizojë makrot. Përdoruesit do të detyrohen ta bëjnë këtë sepse gjithçka që do të shohin është fleta juaj e fillimit. Fletët e tjera do të fshihen!

Për ta bërë këtë teknikë të funksionojë, ju nevojiten dy makro: një makro fsheh të gjitha, përveç fletës START kur mbyllet libri i punës, dhe një makro tjetër që hap të gjitha, përveç fletës START kur hapet libri i punës.

Së pari, trajtoni veprimet që duhet të ndodhin kur libri i punës mbyllet. :

Aktivizoni Visual Basic Editor duke shtypur ALT+F11 në tastierën tuaj

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ë kutinë rënëse Ngjarje, zgjidhni ngjarjen BeforeClose.

Shkruani ose ngjitni kodin e mëposhtëm:

Nën-libër pune privat_BeforeClose (Anulo si Boolean)
'Hapi 1: Deklaroni variablat tuaja
  Dim ws As Fletë pune
'Hapi 2: Hape fletën fillestare
  Sheets("START").E dukshme = xlSheetVisible
'Hapi 3: Filloni të shikoni të gjitha fletët e punës
  Për çdo ws Në këtë Libër pune.Fletët e punës
'Hapi 4: Kontrolloni emrin e çdo flete pune
  Nëse ws.Emri <> "START" Pastaj
'Hapi 5: Fshihni fletën
  ws.E dukshme = xlShumë e fshehur
  Fundi Nëse
'Hapi 6: Kaloni në fletën tjetër të punës
  ws tjetër
'Hapi 7: Ruani librin e punës
  ActiveWorkbook.Ruaj
Fundi Nën

Në hapin 1, ju deklaroni një objekt të quajtur ws për të krijuar një enë memorie për çdo fletë pune që do të kaloni.

Në hapin 2, ju siguroheni që fleta START të jetë e dukshme.

Në hapin 3, ju filloni ciklin, duke i thënë Excel që dëshironi të vlerësoni të gjitha fletët e punës në këtë libër pune.

Në hapin 4, thjesht krahasoni emrin START me fletën që është duke u shfaqur aktualisht. Ky hap siguron që veprimet që vijnë më pas të zbatohen në të gjitha fletët përveç fletës START.

Nëse emrat e fletëve janë të ndryshëm, në hapin 5 e fshehni fletën duke përdorur veçorinë xlVeryHidden. Kjo veçori jo vetëm që fsheh fletën, por gjithashtu parandalon përdoruesin që ta zbulojë manualisht atë duke përdorur ndërfaqen e përdoruesit.

Ju riktheheni për të marrë fletën tjetër në Hapin 6.

Në hapin 7, pasi të gjitha fletët janë vlerësuar, makro ruan librin e punës dhe përfundon.

Tani, duhet të shkruani një makro për të trajtuar të gjitha veprimet që duhet të ndodhin kur hapet libri i 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ë kutinë rënëse Ngjarje, zgjidhni ngjarjen Hapur.

Shkruani ose ngjitni kodin e mëposhtëm:

Nën-libër pune privat_Open()
'Hapi 1: Deklaroni variablat tuaja
  Dim ws As Fletë pune
'Hapi 2: Filloni të shikoni të gjitha fletët e punës
  Për çdo ws Në këtë Libër pune.Fletët e punës
'Hapi 3: Shfaq të gjitha fletët e punës
  ws.Dukshme = xlSheetVisible
'Hapi 4: Kaloni në fletën tjetër të punës
  ws tjetër
'Hapi 5: Fshihni fletën e fillimit
  Sheets("START").E dukshme = xlShumë e fshehur
Fundi Nën

Në hapin 1, ju deklaroni një objekt të quajtur ws për të krijuar një kontejnerë memorie për çdo fletë pune që kaloni nëpër qark.

Në hapin 2, ju filloni ciklin, duke i thënë Excel që dëshironi të vlerësoni të gjitha fletët e punës në këtë libër pune.

Në hapin 3, ju zbuloni fletën që është duke u lakuar aktualisht. Ky hap në mënyrë efektive zbulon të gjitha fletët e punës pasi secila fletë bëhet e dukshme.

Ju riktheheni për të marrë fletën tjetër në Hapin 4.

Pasi të gjitha fletët të bëhen të dukshme, Hapi 5 fsheh fletën START. Përsëri, ju përdorni veçorinë xlVeryHidden në mënyrë që përdoruesi të mos jetë në gjendje të zbulojë manualisht fletën duke përdorur ndërfaqen e përdoruesit.

Pasi të zbatohen të dyja makrot, do të keni një libër pune që do të funksionojë vetëm nëse përdoruesi aktivizon makrot!