怎样用VBA代码禁止双击行(或列)号选中该行(或列)

lengfeng910

下面的代码可以让选择一整行时自选中A6单元格(即禁止选中整行),但如果双击行号依然可以选中整行。怎样才能禁止双击行(或列)号时选中该行(或列)呢?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Selection.Columns.Count = 256 Then
        Range("A6").Select
    End If
End Sub

无聊的疯子

为什么不让选择整行呢??

lengfeng910

为了不让删除已输入的数据。

lengfeng910

已解决,其实在中间加一个msgbox即可.代码如下,请坛内高人批评指正.
下列代码实现功能:只能依次在A、B、C列输入数据，其他的单元格或行列均不可选。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim mrg As Range
    Dim row As Long
    Static k As Integer
    k = k + 1
    If k > 1 Then k = 0: End
    row = Range("A65536").End(xlUp).row
    If Range("B" & row) = "" Then
        Set mrg = Range("B" & row)
    ElseIf Range("C" & row) = "" Then
        Set mrg = Range("C" & row)
    Else
        Set mrg = Range("A" & row + 1)
    End If
    If Target(1, 1).Address <> mrg.Address Then
        MsgBox "当前只能选" & Replace(mrg.Address, "$", "") & "单元格"
        mrg.Select
    ElseIf Target.Columns.Count > 1 Then
        MsgBox "当前只能选" & Replace(mrg.Address, "$", "") & "单元格"
        mrg.Select
    else
        k=0
    End If
End Sub