如何自定义一个函数，将指定的工作表隐藏

cyhwy

如何自定义一个函数，将指定的工作表隐藏




Function HideWorksheet(sheetName As String)
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Worksheets(sheetName)
    If Not ws Is Nothing Then
        ws.Visible = xlSheetHidden
    Else
        MsgBox "未找到名为 " & sheetName & " 的工作表。"
    End If
End Function


上面是讯飞星火编的，不能实现隐藏的效果，貌似不能改变Visible属性

ykcbf1100

看上去没问题的。
或者你把xlSheetHidden改成0或者改成xlSheetVeryHidden再试试

cyhwy

还是不行呢

cyhwy

有高手知道吗

yjh_27

cyhwy 发表于 2024-1-19 23:07
有高手知道吗

需要保留一个工作表