Denne metoden vil innføre en VBA slette åpning /aktive arbeidsboken uten å lukke den i Excel. Gjør følgende:

1. Trykk Alt + F11 tastene samtidig for å åpne Microsoft Visual Basic for Applications vinduet.

2. Klikk Sett > Modul, kopiere følgende VBA koden og lim inn åpne modulen vindu

VBA. Slett Aktiv arbeidsbok uten å lukke den i Excel

Sub DeleteActiveWorkbook () Dim xFullName Som StringxFullName = Application. ActiveWorkbook.FullNameActiveWorkbook.Saved = TrueApplication.ActiveWorkbook.ChangeFileAccess xlReadOnlyKill xFullNameApplication.ActiveWorkbook.Close FalseEnd Sub

3. Trykk F5 eller Run-knappen for å kjøre denne VBA

Merk:.

(1) Dette VBA kan slette aktive arbeidsboken, men kan ikke lukke Excel-vinduet. Hvis det ikke er noen arbeidsbøker åpning etter aktiv arbeidsbok slettet, må du lukke Excel-vinduet manuelt.

(2) Dersom aktiv arbeidsbok aldri har vært lagret før, er dette VBA ikke er i stand til å slette den. Men du kan slette denne ulagret arbeidsbok direkte ved å lukke det. Anmeldelser