Excelのプロセスを終了させるには？ (ID:141391)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

VB2008にてExcel作成(レイトバインド)をしているのですが、シートの保護の編集を許可する処理を入れるとプロセスの終了ができなくなります。どうかご教授願いますでしょうか。
Dim xlApp as Object
Dim xlBooks as Object
Dim xlBook as Object
Dim xlsheets as Object
Dim xlsheet as Object
Dim xlRange as Object
Dim xlSheetPro as Object
Dim lSheetPAE as Object

xlApp = CreateObject("Excel.Application")
xlBooks = xlApp.Workbooks
xlBook = xlBooks.Add    'ブック作成
xlSheets = xlBook.Worksheets(1)
xlSheet = xlSheets

'編集可能セル範囲指定----------------
xlSheetPro = xlSheet.Protection
xlRange = xlSheet.Range("B3:F39,H3:H39,G1") '編集許可のセル範囲
xlSheetPAE = xlSheetPro.AllowEditRanges
xlSheetPAE.Add("範囲1", xlRange)
'------------------------------------
xlSheet.Protect(True, True, True) 'シートの保護設定

'解放--------------------------------
Marshal.ReleaseComObject(xlRange) 
Marshal.ReleaseComObject(xlSheetPAE)
Marshal.ReleaseComObject(xlSheetPro)
Marshal.ReleaseComObject(xlSheet) 
Marshal.ReleaseComObject(xlSheets) 
xlBook.close()
xlBooks.close()
xlApp.Quit()
Marshal.ReleaseComObject(xlBooks)
Marshal.ReleaseComObject(xlBook)
Marshal.ReleaseComObject(xlApp)
'-------------------------------------

上記の”xlSheetPAE.Add("範囲1", xlRange)”で編集範囲を追加すると
Excelのプロセスが終了しない状態になってしまいます。(そのコードの
みコメントアウトすると解放されます)
  コードの記述が間違っているのでしょうか。

←解決時は質問者本人がここをチェックしてください。

戻る