Excel ListBox工作表显示/隐藏联动及状态同步问题求助

我刚好做过类似的需求，给你整理一套完整的实现方案，分三个核心部分来搞定：

1. 刷新按钮填充ListBox并同步初始状态 #

首先是刷新按钮的代码，点击时会把所有工作表名称加载到带复选框的ListBox里，同时根据当前工作表的可见状态自动设置勾选状态：

Private Sub cmdRefresh_Click()
    Dim ws As Worksheet
    Dim i As Integer
    
    ' 清空ListBox现有内容
    ListBox1.Clear
    
    ' 遍历工作簿所有工作表
    For Each ws In ThisWorkbook.Worksheets
        ListBox1.AddItem ws.Name
        ' 根据工作表当前可见状态设置复选框勾选状态
        ListBox1.Selected(ListBox1.ListCount - 1) = (ws.Visible = xlSheetVisible)
    Next ws
End Sub

2. 勾选/取消复选框时控制工作表显示/隐藏 #

给ListBox添加Click事件（勾选复选框会触发这个事件），实现勾选时显示对应工作表，取消时隐藏：

Private Sub ListBox1_Click()
    Dim wsName As String
    Dim ws As Worksheet
    
    ' 获取当前点击项对应的工作表名称
    wsName = ListBox1.List(ListBox1.ListIndex)
    
    ' 定位到目标工作表，添加错误处理防止找不到工作表
    On Error Resume Next
    Set ws = ThisWorkbook.Worksheets(wsName)
    On Error GoTo 0
    
    If Not ws Is Nothing Then
        ' 根据复选框状态切换工作表可见性
        ws.Visible = IIf(ListBox1.Selected(ListBox1.ListIndex), xlSheetVisible, xlSheetHidden)
    End If
End Sub

如果需要把工作表设为完全隐藏（无法通过Excel菜单恢复显示），可以把代码里的xlSheetHidden改成xlSheetVeryHidden。

3. 手动修改工作表可见性时同步复选框状态 #

这个需要用到工作簿级别的事件，打开ThisWorkbook模块，添加以下代码：

Private Sub Workbook_SheetVisibilityChange(ByVal Sh As Object, ByVal Visible As XlSheetVisibility)
    Dim i As Integer
    Dim lb As MSForms.ListBox
    
    ' 替换成你的ListBox所在的工作表名称，比如"控制面板"
    Set lb = ThisWorkbook.Worksheets("控制页").ListBox1
    
    ' 遍历ListBox所有项，找到对应工作表并更新复选框状态
    For i = 0 To lb.ListCount - 1
        If lb.List(i) = Sh.Name Then
            lb.Selected(i) = (Visible = xlSheetVisible)
            Exit For
        End If
    Next i
End Sub

额外注意事项 #

• 确保你的ListBox是ActiveX控件（不是表单控件），表单控件的ListBox不支持复选框和这类事件绑定。
• 如果工作簿有大量工作表，遍历操作可能会有轻微延迟，但几十张表的场景下完全没问题。

这样三个部分组合起来，就能实现完美的双向同步：勾选复选框控制工作表显示隐藏，手动通过Excel菜单修改工作表状态时，ListBox的复选框也会自动同步更新。

内容的提问来源于stack exchange，提问作者mitchmitch24