Cliceáil amháin chun fillteán a oscailt ina bhfuil leabhar oibre gníomhach leis an leabhar oibre seo roghnaithe

Tabharfaidh an modh seo VBA isteach chun leabhar oibre oscailte / gníomhach a scriosadh gan é a dhúnadh in Excel. Déan mar a leanas le do thoil:

1. Brúigh an Eile + F11 eochracha ag an am céanna chun an fhuinneog Microsoft Visual Basic for Applications a oscailt.

2. cliceáil Ionsáigh > Modúil, cóipeáil an cód VBA seo a leanas agus greamaigh isteach fuinneog an mhodúil tosaigh.

VBA: Scrios Leabhar Oibre Gníomhach gan é a dhúnadh in Excel

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. Brúigh an F5 eochair nó Rith cnaipe chun an VBA seo a rith.

nótaí:

(1) Féadann an VBA seo leabhar oibre gníomhach a scriosadh, ach ní féidir leis an fhuinneog Excel a dhúnadh. Mura bhfuil aon leabhair oibre ag oscailt tar éis leabhar oibre gníomhach a scriosadh, dún an fhuinneog Excel de láimh le do thoil.

(2) Mura sábháladh leabhar oibre gníomhach riamh roimhe seo, níl an VBA seo in ann é a scriosadh. Mar sin féin, is féidir leat an leabhar oibre neamhshábháilte seo a scriosadh go díreach trína dhúnadh.