Question

Excel vba worksheet_change事件

Private Sub Worksheet_Change(ByVal Target As Range)

If Sheets("检查标记").Cells(2, 1).Value = 1 Then
Sheets("检查标记").Unprotect Password:="123"
Sheets("检查标记").Cells(1, 1).Value = "标记"
Sheets("检查标记").Cells(2, 1).Value = 0
Sheets("检查标记").Protect Password:="123"

Else
Exit Sub
End If
End Sub
当替换10万行的数据的时候，事件会触发10万次，效率低下，甚至造成死机，如何解决这个问题？
还有个奇怪的现象：之前这个事件10万行数据执行事件大概为3秒，现在不知道怎么回事，执行时间超长并且会造成Excel没有响应了...可以确认的是之前该事件也已经触发了...并且数据一样是10万行，替换动作一样

Answer 1

增加一行判断函数试试：
Private Sub Worksheet_Change(ByVal Target As Range)
If Not (Target.Cells.Row = 2 And Target.Cells.Column = 1) Then Exit Sub

If Sheets("检查标记").Cells(2, 1).Value = 1 Then
Sheets("检查标记").Unprotect Password:="123"
Sheets("检查标记").Cells(1, 1).Value = "标记"
Sheets("检查标记").Cells(2, 1).Value = 0
Sheets("检查标记").Protect Password:="123"

Else
Exit Sub
End If
End Sub

追问

首先：改变的不是检查标记这个工作表，Change事件是别的工作表的；其次Target.cells.row>1时Exit sub不能终止Change事件（已经测试过）

Answer 2

先不启用宏，替换完了再启用宏

追问

......这个解决方案还不如直接让客户去手动操作呢......

追答

现在是你要操作数据，不是客户吧？上述代码的意思是：当A2的值为1时取消工作表保护。当A2值为0时，启用工作表保护。与你要替换的其他数据没有任何关系，为何要反复地去执行这个操作？你要替换数据，A2必定是1，否则无法替换。每替换一个数，工作表要执行取消保护一次，何苦呢，关掉宏，处理好你的工作表再开启宏，不是什么麻烦也没有了。

刚写错了，补充下：是当A2为1是，先取消保护，再标注，再启用保护，每变更一个数都要如此一个循环。

追问

倒地，你程序都没看清......这个是别的工作表的change事件，当触发时，如果检查标记工作表第二个单元格值为0时候 退出，当值为1时，先取消工作表保护，然后将值替换成0，再添加工作表保护......

Answer 3

其实解决起来很简单，加一句代码就可以了，Application……

Answer 4

If (Sheets("检查标记").Cells(2, 1).Value = 1) Then
...
else
...
end if