VB中调用Excel文件，怎样才能在程序中强行关闭，或等待禁止程序的其他操作？

[zhurui214]

我的程序的头尾是这样的：

Dim objExcelSample As Excel.Application
Dim objWorkbook As Excel.Workbook
Dim objWorkSheet As Excel.Worksheet

Set objExcelSample = New Excel.Application
Set objWorkbook = objExcelSample.Workbooks.Open(App.Path & _
"\LogInfo.xls")
Set objWorkSheet = objWorkbook.Sheets("登録内容一覧（家族）")

objWorkSheet.Application.Visible = True

objWorkSheet.Copy after:=Sheets(Sheets.Count)
Set objWorkSheet = objWorkbook.Sheets(Sheets.Count)
.
.
.
.
.
.
objWorkSheet.PrintPreview
objWorkSheet.PrintOut
objWorkbook.Close
objExcelSample.Quit
Set objExcelSample = Nothing

我现在碰到的问题是，打印完文件后，为Excel的界面，如果我把界面切换到程序界面的时候就会报错。因为Excel关闭是要提示是否保存的，我想在程序里强行关闭Excel文件不让他提示是否保存，或者，暂停程序的运行(或禁止对程序的操作)直到Excel关闭以后才继续。