If User.Name <> "季萍" And User.Name <> "开发者" RibbonTabs("功能区1").Visible = FalseEnd IfIf User.Name = "季萍" RibbonTabs("功能区2").Visible = FalseElseIf user.name = "销售经理" RibbonTabs("功能区2")("功能组2")("申请修改").Visible = False RibbonTabs("功能区2")("功能组2")("申请删除").Visible = False RibbonTabs("功能区2")("功能组2")("申请战胜").Visible = False RibbonTabs("功能区2")("功能组2")("分割条1").Visible = FalseEnd If