Gå til hovedindhold

Hvordan deaktiveres Gem prompt når luk projektmappe?

Hver gang du lukker en Excel-fil uden at gemme, vises der en meddelelse om at gemme dig for at bekræfte, om den er lukket uden at gemme eller ej, hvilket kan irritere dig. Nu introducerer jeg nogle VBA-koder for dig at deaktivere gem-prompten, når du lukker en projektmappe.

Deaktiver gem prompt med VBA-kode i ExcelM


pil blå højre boble Deaktiver gem prompt med VBA-kode i Excel

Her introducerer jeg to VBA-koder for dig at deaktivere gem-prompt. Den ene lukker Excel uden at gemme, når du lukker projektmappen direkte, mens den anden lukker Excel med at gemme den sidste ændring, du foretager, når du lukker projektmappen.

1. Trykke Alt + F11 at åbne en Microsoft Visual Basic til anvendelse vindue.

2. klik indsatte > Moduler for at åbne et modulvindue, kopier derefter følgende VBA til vinduet.

VBA: Luk uden at gemme direkte.

Sub Auto_Close()
    ThisWorkbook.Saved = True
End Sub

3. klik Kør knappen eller F5 tasten på tastaturet for at køre denne kode. Så når du lukker en Excel-projektmappe, lukkes den direkte og gemmer ikke den sidste ændring.

Hvis du vil lukke Excel med at gemme ændringerne, kan du bruge denne VBA-kode.

VBA: Luk med at gemme.

Sub Auto_Close()
    If ThisWorkbook.Saved = False Then
        ThisWorkbook.Save
    End If
End Sub

Bemærk: Den anden VBA fungerer ikke med nye projektmapper, som du aldrig har gemt før.


Relative artikler:

Bedste kontorproduktivitetsværktøjer

🤖 Kutools AI Aide: Revolutionér dataanalyse baseret på: Intelligent udførelse   |  Generer kode  |  Opret brugerdefinerede formler  |  Analyser data og generer diagrammer  |  Aktiver Kutools funktioner...
Populære funktioner: Find, fremhæv eller identificer dubletter   |  Slet tomme rækker   |  Kombiner kolonner eller celler uden at miste data   |   Runde uden formel ...
Super opslag: VLookup med flere kriterier    Multiple Value VLookup  |   VOpslag på tværs af flere ark   |   Fuzzy Lookup ....
Avanceret rulleliste: Opret hurtigt rulleliste   |  Afhængig rulleliste   |  Multivælg rulleliste ....
Column Manager: Tilføj et bestemt antal kolonner  |  Flyt kolonner  |  Skift synlighedsstatus for skjulte kolonner  |  Sammenlign områder og kolonner ...
Fremhævede funktioner: Grid fokus   |  Designvisning   |   Stor Formel Bar    Arbejdsbog & Ark Manager   |  Ressourcebibliotek (Autotekst)   |  Datovælger   |  Kombiner regneark   |  Krypter/Dekrypter celler    Send e-mails efter liste   |  Superfilter   |   Specielt filter (filter fed/kursiv/gennemstreget...) ...
Top 15 værktøjssæt12 tekst Værktøjer (tilføje tekst, Fjern tegn, ...)   |   50 + Chart Typer (Gantt kort, ...)   |   40+ Praktisk formler (Beregn alder baseret på fødselsdag, ...)   |   19 Indsættelse Værktøjer (Indsæt QR-kode, Indsæt billede fra sti, ...)   |   12 Konvertering Værktøjer (Tal til ord, Valutaomregning, ...)   |   7 Flet og del Værktøjer (Avancerede kombinere rækker, Opdel celler, ...)   |   ... og mere

Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid.  Klik her for at få den funktion, du har mest brug for...

Beskrivelse


Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere

  • Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
  • Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
  • Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!
Comments (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
i tied and it worked only for the current file. I want to keep that setting for all files i'll be working.
This comment was minimized by the moderator on the site
Does not work. Tried it in my personal workbook, tried it in my add on. I want it to work for all workbooks. Windows should have this option in their settings.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations