If QX = "管理员" Then 菜单名.Enabled = True '或 菜单名.Visible = True Else 菜单名.Enabled = False '或 菜单名.Visible = False End If