Case <> "开发者","管理员" e.Cancel = TrueEnd Select
Select Case User.Name
Case <> "开发者" andalso Case <> "管理员"
e.Cancel = True
End Select