如何用代码删除深度隐藏的工作表？

作者：绿色风分类：时间：2022-08-17 浏览：165

楼主水星钓鱼	Q：如下图所示， sheet2、sheet3两个工作表的Visible属性被设置为xlSheetVeryHidden(即深度隐藏，不能通过右键工作表标签来取消隐藏），现在需要在sheet1中通过代码删除除本身工作表之外的所有其余工作表 A：当在sheet1运行以下代码时 Sub xyf() Dim oWK As Worksheet Application.DisplayAlerts = False For Each oWK In ThisWorkbook.Worksheets If oWK.Name <> Me.Name Then oWK.Delete End If Next Application.DisplayAlerts = True End Sub 会弹出如图所示的错误原因就是有两个工作表被深度隐藏了。为了删除深度隐藏的工作表可以这样修改代码 Sub xyf() Dim oWK As Worksheet Application.DisplayAlerts = False For Each oWK In ThisWorkbook.Worksheets If oWK.Name <> Me.Name Then oWK.Visible = xlSheetHidden oWK.Delete End If Next Application.DisplayAlerts = True End Sub 删除深度隐藏的工作表.zip
2楼海洋之星	学习
3楼 hustclm	学习，思路转换就在一瞬间
4楼芐雨	学习了
5楼 wise	oWK.Visible = xlSheetHidden 原来加多这句就可以了
6楼老糊涂	学习用Me

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表