Kaip išjungti „Excel“ išsaugojimo pranešimą
Automatizuodami „Excel“ funkcijas su makrokomandomis naudodami „Visual Basic for Applications“, „Excel“ nežino, kad makrokomandas valdo vykdymą, ir toliau skelbia vartotojo pranešimus ir raginimus. Išsaugodami darbo knygą „Excel“ pranešimus galite išjungti keliais būdais ir leiskite makrokomandai nuspręsti, ar laikyti ar atmesti pakeitimus, kuriuos naudotojas arba makrokomandas sukūrė darbo knygoje.
Sukurti makrokomandą
1.
Paleiskite „Excel“. Pasirinkite „File“ ir „Options“. Pasirinkite „Tinkinti juostelę“ ir spustelėkite langelį, jei norite pažymėti žymę, esančią šalia „Kūrėjo“ parinkties dešinėje esančiuose skirtukų sąraše, esantį pagrindiniuose skirtukuose, jei langelis dar nėra patikrintas. Pasirinkite „Gerai“, kad išsaugotumėte pakeitimus.
2.
Meniu pasirinkite „Kūrėjas“ ir pasirinkite „Makrokomandos“. Įveskite makro pavadinimą ir pasirinkite „Sukurti“, kad atidarytumėte VBA redaktorių.
3.
Įveskite makro kodą, esantį redaktoriuje pateikiamame paprogramės kontūre. Skambinkite Shutdown subroutine ir pereikite True, kad išsaugotumėte darbaknygės pakeitimus arba False, kad ignoruotumėte darbo knygos pakeitimus. Skambinkite CloseAndDiscard subroutine, kad uždarytumėte darbaknygę ir ignoruotumėte pakeitimus. Pavyzdžiui, įveskite: „Shutdown (True)“, „Shutdown (False)“ arba „CloseAndDiscard ()“ (be kabučių).
Sukurti „Shutdown“ () arba „CloseAndDiscard“ () Subroutiną
1.
Sukurkite VBA paprogramę, kuri priima vėliavą, nurodančią, ar pakeitimai turėtų būti išsaugoti. Nustatykite darbaknygės nuosavybę į „Išsaugota“, lyg ką tik išsaugojote failą ir uždarę darbaknygę, kad atsisakytumėte pakeitimų be jokių vartotojo raginimų ar pranešimų. Priešingu atveju išsaugokite pakeitimus ir uždarykite darbaknygę. Pavyzdžiui:
„Sub Shutdown“ („IfSave As Boolean“) Jei reikia „SaveSave“ = „True“ (išsaugoti pakeitimus) Jei „ThisWorkbook.Saved = False“ tada „išsaugoti“, jei pakeitimai buvo atlikti „ThisWorkbook.Save“, išsaugokite failą be naudotojo užklausos. pasakykite „Excel“, kad išsaugojome failą, kad pašalintume pakeitimus
ActiveWorkbook.Close 'uždarykite failą End Sub
2.
Uždarydami uždarykite visus darbo knygoje padarytus pakeitimus, išjungdami visus sistemos įspėjimo pranešimus, uždarydami failą ir iš naujo įgalindami įspėjimus. Pavyzdžiui:
Sub CloseAndDiscard () Application.DisplayAlerts = False ActiveWorkbook.Close 'be vartotojo raginimo = ignoruoti pakeitimus Application.DisplayAlerts = True End Sub
3.
Parametrą „SaveChanges“ nustatykite į „True“, kai skambinate „ActiveWorkbook Close“ metodu, kad automatiškai išsaugotumėte pakeitimus neprašydami naudotojo. Parametrą nustatykite į „False“, kad automatiškai pašalintumėte pakeitimus neprašydami naudotojo. Pavyzdžiui:
„Sub ShutDown“ (jei reikia išsaugoti kaip loginę) ActiveWorkbook.Close SaveChanges: = ArSave End Sub Sub
Išsaugoti kaip „Macro“ įgalintą darbo knygą
1.
Po „Makrokomandų“ ir „Susietų ir grįžkite į„ Microsoft Excel “, kai sukuriate makrokomandas ir su jais susijusius posistemius.
2.
Meniu pasirinkite „Kūrėjas“, pasirinkite „Makrokomandos“, pažymėkite savo makrokomandą ir pasirinkite „Vykdyti“, kad paleistumėte ir išbandytumėte.
3.
Meniu pasirinkite „File“ (rinkmena), pasirinkite „Save As ...“ (įrašyti kaip ...) ir pakeiskite „Save as Type“ (išsaugoti kaip tipą) į „Excel makro įgalintą darbaknygę (* .xlsm).“ Įveskite failo pavadinimą ir pasirinkite „Išsaugoti“, kad išsaugotumėte darbaknygę su makro.
Patarimai
- Nustatę „SaveChanges“ į „True“, įsitikinkite, kad darbo knygoje yra failo pavadinimas, susijęs su juo, kad būtų išvengta papildomo vartotojo raginimo. Pavyzdžiui:
- ActiveWorkbook.Close SaveChanges: = Tiesa, failo pavadinimas: = "myworkbook.xlsx"
Įspėjimas
- Nustatymas „Application.DisplayAlerts“ į „False“ slopina visus įspėjimus, o ne tik „Save dialogs“. Išjungti įspėjimus iš karto prieš užduotį, kuri gali generuoti įspėjimą ir vėl įjungti įspėjimus, kai tik atliksite užduotį, kad būtų išvengta svarbių sistemos pranešimų.