title: Remove Excel task from Task manager after running from Access using VBA
body: <p>I will now take the opportunity to ask here, I have really tried a lot of different way, but it seems that I am not able to be able to close the Excel task in task-manger, It hangs until I close Access completely, annoying, because I can not run two different jobs using Excel from Access. Second job will give me errors.</p>
  
  <p>I have made some comments to where I still is able to get rid of Excel.
  The purpose for the code is to run some query's and export data to excel and then lock the excel sheet so users only can fill in answers to the data.</p>
  
  <p>Code:</p>
  
  <pre><code>Private Sub Command65_Click()
  Dim r As Double
  'On Error GoTo Error_Handler
  Dim objExcel As Excel.Application
  Dim objWorkbook As Workbook
  Dim objWorksheet As Worksheet
  Dim dbs As DAO.Database
  Dim rSt As DAO.Recordset
  Set dbs = CurrentDb
  Set rSt = CurrentDb.OpenRecordset("qry_VC_Confirmation")
  
  Set objExcel = CreateObject("Excel.Application")
  objExcel.Visible = True
  
  'objExcel.Quit  ' at this point it still works to close again
  'Set objExcel = Nothing ' at this point it will remove from task manager
  
  Set objWorkbook = objExcel.Workbooks.Add
  Set objWorksheet = objWorkbook.Worksheets(1)
  
  'Set objWorkbook = Nothing ' can close still at this stage
  'Set objWorksheet = Nothing ' can close still at this stage
  'objExcel.Quit  ' at this point it still works to close again ?
  'Set objExcel = Nothing ' at this point it still will not remove from task manager
  
  iFld = 0
  irow = 1
  For icol = 1 To (rSt.Fields.count)
      objWorksheet.Cells(irow, icol) = rSt.Fields(iFld).Name
      objWorksheet.Cells(irow, icol).Interior.ColorIndex = 1
      objWorksheet.Cells(irow, icol).Font.ColorIndex = 2
      objWorksheet.Cells(irow, icol).Font.Bold = True
      iFld = iFld + 1
  Next
  
  'Set objWorkbook = Nothing '
  'Set objWorksheet = Nothing '
  'objExcel.Quit  ' at this point it still works to close Excel again ?
  'Set objExcel = Nothing ' at this point it will still remove from task manager
  
  irow = 2
  If Not rSt.BOF Then rSt.MoveFirst
  Do Until rSt.EOF
      iFld = 0
      lRecords = lRecords + 1
      For icol = 1 To (rSt.Fields.count)
          objWorksheet.Cells(irow, icol) = rSt.Fields(iFld)
          iFld = iFld + 1
          Next
          irow = irow + 1
          rSt.MoveNext
  Loop
  r = irow - 1
  Columns("A:F").EntireColumn.AutoFit
  
  ActiveSheet.Protection.AllowEditRanges.Add Title:="Unprotected", Range:=Range("F2:F" &amp; r)
  ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="secret"
  
  objWorkbook.SaveAs ("C:\Dropbox\VC_Confirmation.xlsx")
  
  ExitSub:
  Set objWorkbook = Nothing '
  Set objWorksheet = Nothing '
  objExcel.Quit  ' at this point it still works to close excel again ?
  Set objExcel = Nothing ' at this point it will **NOT** remove from task manager
  
  Exit Sub
  
  Error_Handler:
  MsgBox Error$
  Resume ExitSub
  
  End Sub
  </code></pre>