Priverskite savo klientus įjungti „Excel“ makrokomandas

Norėdami naudoti bet kurią makrokomandą programoje „Excel“, jūsų vartotojai turi įjungti makrokomandas. Tai yra, jie turi suteikti Excel leidimą paleisti makrokomandas savo aplinkoje. Norėdami įjungti makrokomandas, vartotojai spusteli mygtuką Įgalinti turinį saugos įspėjime, kuris pasirodo virš formulės juostos.

Priverskite savo klientus įjungti „Excel“ makrokomandas

Esmė ta, kad galite rašyti visas išgalvotas pasaulio makrokomandas, bet jos niekada nebus paleistos, nebent jūsų vartotojai įjungs makrokomandas. Tai kelia klausimą; ar galite priversti vartotojus įjungti makrokomandas? Atsakymas yra taip – ​​su nedideliu gudrumu.

Idėja gana paprasta. Jūs sukuriate lapą pavadinimu, tarkime, PRADĖTI. Tame lape yra tik paprastas įspėjimas, kad makrokomandos turi būti įjungtos. Tada paslėpsite visus darbaknygės lapus, išskyrus tą START lapą. Galiausiai parašote paprastą makrokomandą, kuri atidarius darbaknygę išskleidžia visus lapus.

Priverskite savo klientus įjungti „Excel“ makrokomandas

Šiuo metu, kai atidaroma darbaknygė, „Excel“ paprašys vartotojo įjungti makrokomandas. Vartotojai bus priversti tai padaryti, nes jie matys tik jūsų pradžios lapą. Kiti lakštai bus paslėpti!

Kad ši technika veiktų, jums reikia dviejų makrokomandų: viena makrokomanda paslepia visus, išskyrus START lapą, kai darbaknygė uždaroma, o kita makrokomanda, kuri atidarius darbaknygę paslepia visus, išskyrus START lapą.

Pirmiausia atlikite veiksmus, kurie turi įvykti uždarius darbaknygę. :

Suaktyvinkite „Visual Basic“ rengyklę paspausdami klaviatūros klavišus ALT+F11

Projekto lange raskite savo projekto / darbaknygės pavadinimą ir spustelėkite šalia jo esantį pliuso ženklą, kad pamatytumėte visus lapus.

Spustelėkite Ši darbo knyga.

Išskleidžiamajame lauke Įvykis pasirinkite įvykį BeforeClose.

Priverskite savo klientus įjungti „Excel“ makrokomandas

Įveskite arba įklijuokite šį kodą:

Privati ​​antrinė darbo knyga_Prieš uždarymą (Atšaukti kaip Būlio)
1 veiksmas: deklaruokite savo kintamuosius
  Dim ws kaip darbalapis
'2 veiksmas: neslėpkite pradžios lapo
  Lapai("PRAIDŽIA").Visible = xlSheetVisible
3 veiksmas: pradėkite peržiūrėti visus darbalapius
  Kiekvienam ws Šioje darbaknygėje.Darbo lapuose
4 veiksmas: patikrinkite kiekvieno darbalapio pavadinimą
  Jei ws.Name <> "START" Tada
5 veiksmas: paslėpkite lapą
  ws.Visible = xlVeryHidden
  Pabaiga, jei
6 veiksmas: pereikite prie kito darbalapio
  Kitas ws
7 veiksmas: išsaugokite darbaknygę
  ActiveWorkbook.Save
Pabaigos sub

1 veiksme deklaruojate objektą, vadinamą w, kad sukurtumėte atminties talpyklą kiekvienam darbalapiui, kurį peržiūrėsite.

2 veiksme įsitikinkite, kad START lapas yra matomas.

Atlikdami 3 veiksmą, pradedate kilpą, nurodydami Excel, kad norite įvertinti visus šios darbaknygės darbalapius.

4 veiksme jūs tiesiog palyginkite pavadinimą START su lapu, kuris šiuo metu yra kilpinamas. Šis veiksmas užtikrina, kad tolesni veiksmai būtų taikomi visiems lapams, išskyrus START lapą.

Jei lapų pavadinimai skiriasi, 5 veiksme paslėpsite lapą naudodami ypatybę xlVeryHidden. Ši savybė ne tik paslepia lapą, bet ir neleidžia vartotojui rankiniu būdu jo paslėpti naudojant vartotojo sąsają.

Grįžkite atgal, kad gautumėte kitą lapą atlikdami 6 veiksmą.

7 veiksme, įvertinus visus lapus, makrokomanda išsaugo darbaknygę ir baigiasi.

Dabar turite parašyti makrokomandą, kad galėtumėte atlikti visus veiksmus, kurie turi įvykti atidarius darbaknygę:

Suaktyvinkite „Visual Basic“ rengyklę paspausdami ALT+F11.

Projekto lange raskite savo projekto / darbaknygės pavadinimą ir spustelėkite šalia jo esantį pliuso ženklą, kad pamatytumėte visus lapus.

Spustelėkite Ši darbo knyga.

Išskleidžiamajame lauke Įvykis pasirinkite Atidaryti įvykį.

Priverskite savo klientus įjungti „Excel“ makrokomandas

Įveskite arba įklijuokite šį kodą:

Privati ​​antrinė darbaknygė_Open()
1 veiksmas: deklaruokite savo kintamuosius
  Dim ws kaip darbalapis
2 veiksmas: pradėkite peržiūrėti visus darbalapius
  Kiekvienam ws Šioje darbaknygėje.Darbo lapuose
3 veiksmas: neslėpkite visų darbalapių
  ws.Visible = xlSheetVisible
4 veiksmas: pereikite prie kito darbalapio
  Kitas ws
5 veiksmas: paslėpkite pradžios lapą
  Lapai ("PRAIDŽIA"). Matoma = xlLabai paslėpta
Pabaigos sub

1 veiksme deklaruojate objektą, vadinamą w, kad sukurtumėte atminties talpyklą kiekvienam darbalapiui, kurį peržiūrite.

2 veiksme pradedate kilpą, nurodydami Excel, kad norite įvertinti visus šios darbaknygės darbalapius.

Atlikdami 3 veiksmą, paslėpsite lapą, kuris šiuo metu yra jungiamas. Šis veiksmas efektyviai parodo visus darbalapius, nes kiekvienas lapas tampa matomas.

Grįžkite atgal, kad gautumėte kitą lapą atlikdami 4 veiksmą.

Kai visi lapai tampa matomi, 5 veiksmas paslepia START lapą. Vėlgi, naudojate ypatybę xlVeryHidden, kad vartotojas negalėtų rankiniu būdu paslėpti lapo naudodamas vartotojo sąsają.

Įdiegę abi makrokomandas turėsite darbaknygę, kuri veiks tik tuo atveju, jei vartotojas įjungs makrokomandas!

Leave a Comment

Specialiųjų simbolių įterpimas į Word 2010

Specialiųjų simbolių įterpimas į Word 2010

Kartais gali prireikti įterpti neįprastą simbolį į Word 2010 dokumentą. Perskaitykite, kaip lengvai tai padaryti su mūsų patarimais ir simbolių sąrašu.

Kaip naudoti logines funkcijas „Excel 2010“ formulėse

Kaip naudoti logines funkcijas „Excel 2010“ formulėse

„Excel 2010“ naudoja septynias logines funkcijas – IR, FALSE, IF, IFERROR, NOT, OR ir TRUE. Sužinokite, kaip naudoti šias funkcijas efektyviai.

Kaip paslėpti ir rodyti eilutes ir stulpelius programoje „Excel 2016“.

Kaip paslėpti ir rodyti eilutes ir stulpelius programoje „Excel 2016“.

Sužinokite, kaip paslėpti ir atskleisti stulpelius bei eilutes programoje „Excel 2016“. Šis patarimas padės sutaupyti laiko ir organizuoti savo darbalapius.

Kaip apskaičiuoti slenkančius vidurkius programoje „Excel“.

Kaip apskaičiuoti slenkančius vidurkius programoje „Excel“.

Išsamus vadovas, kaip apskaičiuoti slankiuosius vidurkius „Excel“ programoje, skirtas duomenų analizei ir orų prognozėms.

Kaip nukopijuoti formules naudojant automatinį pildymą programoje „Excel 2016“.

Kaip nukopijuoti formules naudojant automatinį pildymą programoje „Excel 2016“.

Sužinokite, kaip efektyviai nukopijuoti formules Excel 2016 programoje naudojant automatinio pildymo funkciją, kad pagreitintumėte darbo eigą.

Kaip „Excel 2010“ langeliams taikyti užpildymo spalvas, raštus ir gradientus

Kaip „Excel 2010“ langeliams taikyti užpildymo spalvas, raštus ir gradientus

Galite pabrėžti pasirinktus langelius „Excel 2010“ darbalapyje pakeisdami užpildymo spalvą arba pritaikydami ląstelėms šabloną ar gradiento efektą.

Kaip paryškinti savaitgalio datas programoje „Excel“.

Kaip paryškinti savaitgalio datas programoje „Excel“.

Dirbdami su laiko kortelėmis ir planuodami programą „Excel“, dažnai pravartu lengvai nustatyti bet kokias datas, kurios patenka į savaitgalius. Šiame straipsnyje pateikiami žingsniai, kaip naudoti sąlyginį formatavimą.

Kaip sukurti diagramas „Office 365“.

Kaip sukurti diagramas „Office 365“.

Sužinokite, kaip sukurti diagramas „Word“, „Excel“ ir „PowerPoint“ programose „Office 365“. Daugiau informacijos rasite LuckyTemplates.com.

Kaip sukurti pasirinktinius „Excel“ suvestinės lentelės skaičiavimus

Kaip sukurti pasirinktinius „Excel“ suvestinės lentelės skaičiavimus

„Excel“ suvestinės lentelės leidžia kurti <strong>pasirinktinius skaičiavimus</strong>, įtraukiant daug pusiau standartinių skaičiavimų. Šiame straipsnyje pateiksiu detalius nurodymus, kaip efektyviai naudoti šią funkciją.

Kaip pakeisti rašybos tikrinimo ir gramatikos nustatymus programoje „Word 2016“.

Kaip pakeisti rašybos tikrinimo ir gramatikos nustatymus programoje „Word 2016“.

Nesvarbu, ar dievinate, ar nekenčiate Word gebėjimo išjuokti jūsų kalbos gebėjimus, jūs turite galutinį sprendimą. Yra daug nustatymų ir parinkčių, leidžiančių valdyti „Word“ rašybos ir gramatikos tikrinimo įrankius.