请问老师下面的代码怎么写

责任人列有的是一个人，有的可能是多个人，怎么判断只要责任人列有当前用户就允许编辑，否则不允许编辑呢？

If e.Row("责任人") <> User.Name Then
        e.Cancel =True
       End If

为什么编译通不过呢

 Select Case e.Col.name
    Case "主要任务","序号","具体措施","责任领导","配合部门","完成时限"
        If User.roles <> "办公室干事" AndAlso User.Name<>"开发者"  Then
            e.cancel = True
        End If
    Case "是否销号"
        If  "、" & e.Row("责任领导") & "、" Like "*、" User.Name & "、*"  Then
        Else
            e.Cancel =True
        End If
End Select