下面这个是我一个一个写进去隐藏!能不能快速批量隐藏我想要隐藏的,不隐藏全部!求简化!
Private Sub Workbook_Open()
ThisWorkbook.Names('_ob1').Visible = False
ThisWorkbook.Names('_ob2').Visible = False
ThisWorkbook.Names('_ob3').Visible = False
ThisWorkbook.Names('_sb1').Visible = False
ThisWorkbook.Names('_sb2').Visible = False
ThisWorkbook.Names('_sb3').Visible = False
ThisWorkbook.Names('_sb4').Visible = False
ThisWorkbook.Names('_sb11').Visible = False
ThisWorkbook.Names('_sb21').Visible = False
ThisWorkbook.Names('_sb31').Visible = False
ThisWorkbook.Names('_sb41').Visible = False
ThisWorkbook.Names('_isb1').Visible = False
ThisWorkbook.Names('_isb2').Visible = False
ThisWorkbook.Names('_isb3').Visible = False
ThisWorkbook.Names('_ndb1').Visible = False
ThisWorkbook.Names('_ndb2').Visible = False
ThisWorkbook.Names('_ndb3').Visible = False
ThisWorkbook.Names('_ndb11').Visible = False
ThisWorkbook.Names('_ndb21').Visible = False
ThisWorkbook.Names('_ndb31').Visible = False
ThisWorkbook.Names('_pdb1').Visible = False
ThisWorkbook.Names('_pdb2').Visible = False
ThisWorkbook.Names('_pdb3').Visible = False
ThisWorkbook.Names('ysjc').Visible = False
ThisWorkbook.Names('_ldp1').Visible = False
ThisWorkbook.Names('_sxp1').Visible = False
ThisWorkbook.Names('xxp1').Visible = False
ThisWorkbook.Names('xzp1').Visible = False
End Sub
本站仅提供存储服务,所有内容均由用户发布,如发现有害或侵权内容,请
点击举报。