Ta bort den aktiva arbetsboken

Ta bort aktiv arbetsbok

I detta tips demonstreras hur vi kan ta bort den aktiva arbetsboken, dvs ta bort filen från hårddisken.

Lösningen möjliggör en ökad flexibilitet i synnerhet när vi arbetar med temporära arbetsböcker, som har sparats men som ska tas bort.

Om ett felmeddelande erhålls vid kopiering till VBA-modul så läs mer här»

(© 2002 - 2004 All rights Colo - Used by permission)

Option Explicit

Private Sub Workbook_BeforeClose(Cancel As Boolean)

   Dim stNamn As String

   stNamn = ActiveWorkbook.FullName

   'Genom att ändra filrättigheterna till att endast kunnas

   'läsas tolkar Excel att arbesboken inte är öppnad.

   ActiveWorkbook.ChangeFileAccess xlReadOnly

   'Tar bort den aktiva arbetsboken.

   Kill stNamn

End Sub