Մեկ կտտոցով ՝ այս աշխատանքային գրքի հետ ակտիվ աշխատանքային գրքույկ պարունակող թղթապանակը բացելու համար

Այս մեթոդը կներկայացնի VBA ՝ առանց Excel- ում փակելու բացման / ակտիվ աշխատանքային գրքույկը ջնջելու համար: Խնդրում ենք անել հետևյալը.

1. Սեղմեք ալտ + F11 միաժամանակ ստեղներ ՝ Microsoft Visual Basic հավելվածների համար պատուհանը բացելու համար:

2: սեղմեք Տեղադրել > Մոդուլներ, պատճենեք հետևյալ VBA կոդը և տեղադրեք բացման մոդուլի պատուհանում:

VBA. Deleteնջեք Ակտիվ աշխատանքային գիրքը ՝ առանց այն 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. Սեղմեք F5 բանալի կամ Վազում այս VBA- ն գործարկելու կոճակը:

Notes:

(1) Այս VBA- ն կարող է ջնջել ակտիվ աշխատանքային գիրքը, բայց չի կարող փակել Excel պատուհանը: Եթե ​​ակտիվ աշխատանքային գրքույկը ջնջելուց հետո աշխատանքային գրքեր չկան, խնդրում ենք ձեռքով փակել Excel պատուհանը:

(2) Եթե ակտիվ աշխատանքային գիրքը նախկինում երբեք չի պահպանվել, այս VBA- ն ի վիճակի չէ ջնջել այն: Այնուամենայնիվ, դուք կարող եք ուղղակիորեն ջնջել այս չպահված աշխատանքային գիրքը ՝ փակելով այն: