一个<em>EXCEL</em>单元格不让编辑，VBA代码怎么写

凡是某一列有中文的就整列显示，对吧，确认了就写。

如果是通过保护工作表来实现的话
可以参考代码：
Range("A1").Locked =True
ActiveSheet.Protect
thisworkbook.sheets("sheet1").range("a1:iv65536").entirerow.hidden=true

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Address = "$A$1" Then
        Columns("B:F").Hidden = Not (Columns("B:F").Hidden)
        If Range("A1") = "显示" Then Range("A1") = "隐藏" Else Range("A1") = "显示"
        Range("A2").Select
    End If
    If Target.Address = "$A$5" Then
        Columns("G:J").Hidden = Not (Columns("G:J").Hidden)
        If Range("A5") = "显示" Then Range("A5") = "隐藏" Else Range("A5") = "显示"
        Range("A2").Select
    End If
    If Target.Address = "$A$7" Then
        Columns("K:N").Hidden = Not (Columns("K:N").Hidden)
        If Range("A7") = "显示" Then Range("A7") = "隐藏" Else Range("A7") = "显示"
        Range("A2").Select
    End If
End Sub

在原e799bee5baa6e79fa5e98193e59b9ee7ad94338有的基础上，加上A5和A7的条件就可以了