Select Case User.Name Case "A" Select Case e.Col.Name Case "1","2" e.Cancel = False End Select Case "B" Select Case e.Col.Name Case "3","4" e.Cancel = False End Select End Select If e.Col.Name = "5","6" Then
If User.Name <> "C" Then e.Cancel = False End If End If