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のプロセスが終了しない状態になってしまいます。(そのコードの みコメントアウトすると解放されます) コードの記述が間違っているのでしょうか。