
加好友 发短信
等级:超级版主
帖子:113606
积分:578555
威望:0
精华:9
注册:2015/6/24 9:21:00
|
Post By:2021/2/2 16:36:00 [显示全部帖子]
If e.Row("6") = True e.Cancel = True Return End If Select Case e.Col.Name Case "1","2" If User.Name <> "A" e.Cancel = True End If Case "3","4" If User.Name <> "B" e.Cancel = True End If Case "5","6" If User.Name <> "C" e.Cancel = True End If End Select
|
|