请教一个工作簿打开后,就不允许打开其它工作簿

GUANCHZH

请教一个工作簿打开后,就不允许打开其它工作簿的代码：我要打开一个工作簿时先关闭并保存(或选择是否保存)之前已打开的所有EXCEL文档,并该工作簿打开后就不能打开其它工作簿,如要打开其它工作簿就必须关闭该工作簿后才行.(主要意思就是该工作簿运行时,就不允许其它工作簿运行,因为该工作簿内有宏运行慢,如果有其它工作簿打开就很容易被卡死).请教各前辈们

LangQueS

代码参考：

Private WithEvents app As Application

Private Sub Workbook_Open()
    Set app = Application
End Sub

Private Sub app_WorkbookOpen(ByVal Wb As Workbook)
If app.Workbooks.Count > 4 Then Wb.Close False: MsgBox "本系统只支持打开4个文件！"
'If app.Workbooks.Count > 1 Then Wb.Close False: MsgBox "本系统只支持打开单一文件！"
End Sub

GUANCHZH

LangQueS 发表于 2011-9-18 08:43
代码参考：

Private WithEvents app As Application

非常感谢" LangQueS"的帮助,但当打开该工作簿时先关闭并保存(或选择是否保存)之前已打开的所有EXCEL文档,这个还没实现