一个工作簿中有多个表，只想隐藏其中一张表，其他表不受影响

shdh

问题在另一个帖子里已解决了，

liulang0808

Public Sub 隐藏sheet4(C)
Dim sht As Worksheet
For Each sht In Worksheets
If sht.CodeName = "C" Then sht.Visible = xlSheetVeryHidden
Next sht
End Sub
仅仅隐藏一个呗

shdh

liulang0808 发表于 2019-9-7 15:18
Public Sub 隐藏sheet4(C)
Dim sht As Worksheet
For Each sht In Worksheets

用了后C并没有被隐藏啊，也不知道是不是我哪弄错了，还有，在论坛上找了个解决方案，我在新建文档测试的时候是没有问题的，但放在我现有文档里的时候就出了问题，能帮看下吗？


代码如下：
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 6 Then
        Target.Offset(, -1) = IIf(Target = "", "", Now)
    End If
End Sub

Private Sub Worksheet_Activate()
    Application.EnableCancelKey = xlDisabled
    Application.EnableEvents = False
    Worksheets("C").Visible = False
    If Application.InputBox("请输入密码", "信息", , , , , , 2) <> "123" Then
        Worksheets(1).Select
        Worksheets("C").Visible = True
        Application.EnableEvents = True
        Exit Sub
    End If

    Worksheets("C").Visible = True
    Worksheets("C").Select
    Application.EnableEvents = True
End Sub
我测试的时候是可以运行的，也有效果，但放到我文档里就出问题了。