是不是这个意思:
Select Case User.Name Case "经营部","总工办","总经办","投标部","财务部" Tables("表名1") Visible = False Tables("表名2") Visible = False Tables("表名3") Visible = FalseEnd Select