Select Case User.Name
Case "赖伟华","张好","郭雪娇","李奕","郭培伦","李小敏","罗洋","蔡文奕","吴晓英"
Tables("快递记录").Visible = False
Tables("客户代码").Visible = False
End Select
Case "赖伟华","张好","龚举","李小敏","罗洋","蔡文奕","吴晓英","黄彩蓝"
Tables("客户信息表").Visible = False