一个工作簿对另一个工作簿模块有奇怪的访问
提问于 2015-12-10 12:00:11
很奇怪的事。下面的代码在一个工作簿中。然后，在另一个工作簿中，我在调试代码时，注意到下面的代码正在被调用？！！代码驻留在第一本书的thisworkbook模块中，所以应该只包含在那本书中。第二本书是怎么“看”到的？
Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
If Sh.Name = "Checks" Then
If Abs(Sh.Range("R25").Value) > 1 Then
ActiveSheet.Tab.Color = RGB(255, 10, 10)
Else
ActiveSheet.Tab.ColorIndex = xlColorIndexNone
End If
End If
End Sub编辑:驻留在模块中的第二本书中的代码：
Sub UpdateWorkbook()
ActiveWorkbook.ActiveSheet.Select
ActiveWorkbook.ActiveSheet.Copy After:=Sheets(1)
End Sub
回答 1
Stack Overflow用户
回答已采纳
发布于 2015-12-10 12:04:36
当您计算一个Excel工作簿时，我相信它会重新计算所有打开的工作簿--因为您的模块是在重新计算时运行的，所以它不是从“活动工作簿”中打开的，因为只要有任何工作簿重新计算，包含其中的代码的工作簿实际上就会自动重新计算。
解决方案要么是在不使用时保持工作簿关闭，要么创建一个泛型If语句循环，检查活动工作簿是否是您希望代码在其中运行的工作簿。
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/34210673
复制
腾讯云开发者
