Private Sub Worksheet_SelectionChange(ByVal Target As Range)  '类似单击事件
	Application.EnableEvents = False
	   If Target.Column = 1 And Target.Row >= 2 And Target.Row <= 9 And Target.Cells.Count = 1 Then
	         If Cells(Target.Row, 2) = "√" Then
	            Cells(Target.Row, 2) = ""
	            Cells(Target.Row, 2).Select
	         Else
	            Cells(Target.Row, 2) = "√"
	            Cells(Target.Row, 2).Select
	         End If
	   End If
	Application.EnableEvents = True
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
	If Target.Locked = True Then
		 MsgBox "此单元格已保护，不能编辑!"
		 Cancel = True
	End If
End Sub