Select Case User.Name
Case "管理员","周绍兴","李彩萍","黄亚茹","张艳玲","常浩","于士保"
Tables("开发者信息表").Visible = False
Tables("客户信息").Visible = False
Tables("收款明细").Visible = False
End Select