Hoe een actieve werkmap (huidig bestand) in Excel te verwijderen?
Stel dat u een werkmap van een website heeft gedownload en de werkmap automatisch is geopend. De werkmap is echter mogelijk niet de juiste, of de werkmap bevat geen vereiste informatie en u wilt deze verwijderen. Soms vergeet u waarschijnlijk de standaardmap waarin gedownloade bestanden automatisch worden opgeslagen. Maakt u zich geen zorgen, we kunnen de geopende / actieve werkmap verwijderen zonder deze rechtstreeks in Excel te sluiten.
Verwijder actieve werkmap (huidig bestand) met VBA
Een klik om de map te openen die een actieve werkmap bevat met deze werkmap geselecteerd
Om snel de map / map met de huidige werkmap te openen en de huidige werkmap te laten selecteren in de openingsmap, probeer dan Kutools voor Excel's Bijbehorende map openen utility.
Verwijder actieve werkmap (huidig bestand) met VBA
Deze methode introduceert een VBA om een geopende / actieve werkmap te verwijderen zonder deze in Excel te sluiten. Ga als volgt te werk:
1. druk de anders + F11 toetsen tegelijk om het venster Microsoft Visual Basic for Applications te openen.
2. klikken Invoegen > Module, kopieer de volgende VBA-code en plak deze in het openingsmodulevenster.
VBA: verwijder actieve werkmap zonder deze in Excel te sluiten
Sub DeleteActiveWorkbook()
Dim xFullName As String
xFullName = Application.ActiveWorkbook.FullName
ActiveWorkbook.Saved = True
Application.ActiveWorkbook.ChangeFileAccess xlReadOnly
Kill xFullName
Application.ActiveWorkbook.Close False
End Sub
3. druk de F5 toets of lopen knop om deze VBA uit te voeren.
Opmerkingen:
(1) Deze VBA kan een actieve werkmap verwijderen, maar kan het Excel-venster niet sluiten. Als er geen werkmappen worden geopend nadat de actieve werkmap is verwijderd, sluit u het Excel-venster handmatig.
(2) Als een actieve werkmap nog nooit eerder is opgeslagen, kan deze VBA deze niet verwijderen. U kunt deze niet-opgeslagen werkmap echter rechtstreeks verwijderen door deze te sluiten.
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
- Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!