深度隐藏的工作表的工作表怎么取消隐藏

dragonthree · 发表于 2024-6-19 16:34

本帖最后由 dragonthree 于 2024-6-19 19:41 编辑

Sub kkk()
For Each sh In ThisWorkbook.Worksheets
   If sh.Visible = 0 Then
      sh.Visible = xlSheetVisible
   End If
Next
End Sub

提示不能设置类的Worksheet的Visible属性

附件已删

dragonthree · 发表于 2024-6-19 16:45

不是很方便发上文件，工作表名上点右键后只有查看代码，保护工作表，选定全部工作表可以用，其它的是灰色

dragonthree · 发表于 2024-6-19 16:47

深度隐藏的工作表的Visible属性有的是0，有的是2，这有什么区别？

小凡、、、 · 发表于 2024-6-19 17:39

可能是工作簿受保护了vba权限不够

小凡、、、 · 发表于 2024-6-19 17:41

dragonthree 发表于 2024-6-19 16:47
深度隐藏的工作表的Visible属性有的是0，有的是2，这有什么区别？

0表示可见，2表示影藏但可以通过界面取消影藏，3表示影藏且不可以通过界面取消影藏

小凡、、、 · 发表于 2024-6-19 17:44

参看下--------------

ynzsvt · 发表于 2024-6-19 17:45

你代码错了数值2，但真正错误如楼上

Sub kkk()
For Each sh In ThisWorkbook.Worksheets
If sh.Visible = 2 Then
sh.Visible = xlSheetVisible
End If
Next
End Sub

复制代码

dragonthree · 发表于 2024-6-19 18:58

小凡、、、发表于 2024-6-19 17:44
参看下--------------

谢谢，上了附件，有空帮忙看看

dragonthree · 发表于 2024-6-19 18:59

ynzsvt 发表于 2024-6-19 17:45
你代码错了数值2，但真正错误如楼上

谢谢，不得行，上了附件

dragonthree · 发表于 2024-6-19 19:05

小凡、、、发表于 2024-6-19 17:39
可能是工作簿受保护了vba权限不够

估计是这样，谢谢，工作簿保护密码不好破

		自动登录	找回密码
密码			免费注册

[求助] 深度隐藏的工作表的工作表怎么取消隐藏