[已解决][求助]请教在什么Sub ()里如何写代码？

OKK

向大家请教个问题不知可否实现：

    Private Sub Workbook_Open()

   查找EXCEL中有没有已经打开的工作簿，如有则本工作簿不打开，退出。

如没有则本工作簿打开

End Sub

下面在什么Sub   ()里写代码我不知道了？

   本工作簿打开后，监视有没有其它工作簿将要打开，如有则本工作簿关闭，退出。

End Sub

望各位高手帮助。

最佳答案

月排行榜 / 总排行榜

gvntw

2008-12-28 09:53

Private Sub Workbook_Open()
牋?If Workbooks.Count > 1 Then ThisWorkbook.Close False
End Sub

跳转到最佳答案楼层

wayy

这个是工作簿打开的执行的操作，

可以判断，如果某文件已经打开则本文件关闭。

但是不能判断某个文件即将打开。

gvntw

Private Sub Workbook_Open()
牋?If Workbooks.Count > 1 Then ThisWorkbook.Close False
End Sub

gvntw

怎么多出了一个特殊字符：牋?

就一句：

If Workbooks.Count > 1 Then ThisWorkbook.Close False

Workbooks.Count：打开的工作簿数（含本工作簿）

OKK

OK!谢谢帮助.

hingkk

学习了