Select Case e.Col.Name Case "第一列", "第二列", "第三列" If User.Name <> "张三" Then e.Cancel = True End IfEnd Select