[求助]怎样禁止打开其他工作簿、禁止新建工作簿。

wangy_xp

在当前工作簿运行时，怎样禁止打开其他工作簿、禁止新建工作簿？谢谢

eagleyzw

thisworkbook下面放如下代码：

Public WithEvents myApp As Application

Private Sub myApp_NewWorkbook(ByVal Wb As Workbook)
Wb.Close False
MsgBox "不允许增加工作簿"
End Sub

Private Sub myApp_WorkbookOpen(ByVal Wb As Workbook)
If Wb.Name <> Application.ThisWorkbook.Name Then
Wb.Close False
MsgBox "不允许打开其他工作簿！"
End If
End Sub

Private Sub Workbook_Open()
    Set myApp = Application
End Sub

浪乘风

感觉这个功能没有多大用处。如果禁止打开其他工作簿、禁止新建工作簿，是不是还应该在打开该工作簿时关闭所有其他的工作簿。这样一来，该表开的时候，别的工作就没法干了。引用当前工作簿，使用THISWORKBOOK就可以了。

wangy_xp

谢谢指教。楼上兄弟也说的好。不过当别的工作表打开对当前工作簿有影响时。我需要这个功能啊

lqf57

如果其它工作簿在它之前打开,就可以打开两个工作簿了.请教这个程序应该怎么改,才能达到要求?

wh1272

还是可以新建工作薄的！

1121228509

VBA如何删除数组中某行数据