循环 卡死

chenletong

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2. For Each cell In Selection
   
3. If cell.Value = "禁止修改" Then
   
4.     If InputBox("进入特定区域，请输入密码！", "请输入密码：") <> "469" Then
   
5.         [a1].Activate
   
6.         Exit For
   
7.     End If
   
8. End If
   
9. Next cell
   
10. End Sub
    
11. Private Sub Worksheet_Change(ByVal Target As Range)
    
12.     If Target.Column = 18 Then Exit Sub
    
13.     Application.EnableEvents = False
    
14.     If Range("r" & Target.Row) = "禁止修改" Then
    
15.         MsgBox "此行数据禁止修改"
    
16.         Application.Undo
    
17.     End If
    
18.     Application.EnableEvents = True
    
19. End Sub
    

复制代码

选取整行整列 和全选的时候 卡死  怎么解决。求高手指点！