在Userform中显示工作表：确保至少一个工作表复选框始终勾选

我明白你的痛点——Excel不允许所有工作表都隐藏，所以当用户试图取消最后一个勾选的工作表时就会报错。咱们可以通过在操作前加判断逻辑，拦截这种无效操作并给出友好提示，具体实现如下：

核心思路 #

Excel强制要求至少保留一个可见工作表，所以我们要在用户点击列表框的复选框时，先检查：如果当前操作会导致所有工作表都隐藏，就阻止这个操作，同时弹出提示告知用户规则。

具体代码实现 #

假设你的UserForm里有一个名为ListBox_Sheets的列表框（记得把它的Style属性设置为fmStyleCheckBox，这样才能显示复选框），下面是完整的事件代码：

1. 初始化列表框（加载工作表并同步可见状态） #

在UserForm的初始化事件里，把所有工作表名称加载到列表框，同时让复选框的勾选状态和工作表的实际可见状态保持一致：

Private Sub UserForm_Initialize()
    Dim ws As Worksheet
    
    Me.ListBox_Sheets.Clear ' 先清空列表框
    For Each ws In ThisWorkbook.Worksheets
        Me.ListBox_Sheets.AddItem ws.Name ' 添加工作表名称
        ' 同步勾选状态：可见的工作表默认勾选
        Me.ListBox_Sheets.Selected(Me.ListBox_Sheets.ListCount - 1) = (ws.Visible = xlSheetVisible)
    Next ws
End Sub

2. 处理复选框点击事件（拦截非法操作） #

在列表框的点击事件中，加入判断逻辑，禁止隐藏最后一个可见工作表：

Private Sub ListBox_Sheets_Click()
    Dim visibleSheetCount As Integer
    Dim targetWs As Worksheet
    Dim selectedItemIndex As Integer
    
    selectedItemIndex = Me.ListBox_Sheets.ListIndex
    If selectedItemIndex = -1 Then Exit Sub ' 没有选中任何项时直接退出
    
    ' 先统计当前可见的工作表总数
    visibleSheetCount = 0
    For Each targetWs In ThisWorkbook.Worksheets
        If targetWs.Visible = xlSheetVisible Then
            visibleSheetCount = visibleSheetCount + 1
        End If
    Next targetWs
    
    ' 获取当前点击的工作表对象
    Set targetWs = ThisWorkbook.Worksheets(Me.ListBox_Sheets.List(selectedItemIndex))
    
    ' 判断：如果当前要隐藏的是最后一个可见工作表，就阻止操作
    If targetWs.Visible = xlSheetVisible And visibleSheetCount = 1 Then
        ' 恢复勾选状态（不让用户取消勾选）
        Me.ListBox_Sheets.Selected(selectedItemIndex) = True
        ' 弹出提示告知用户
        MsgBox "无法隐藏最后一个可见工作表！Excel要求必须至少保留一个可见的工作表。", vbExclamation, "操作提示"
        Exit Sub ' 终止后续操作
    End If
    
    ' 正常执行隐藏/显示逻辑
    targetWs.Visible = IIf(Me.ListBox_Sheets.Selected(selectedItemIndex), xlSheetVisible, xlSheetHidden)
End Sub

关键逻辑说明 #

• 每次用户点击复选框时，先统计当前可见的工作表数量
• 如果用户试图取消最后一个可见工作表的勾选，我们会强制恢复勾选状态，不让隐藏操作执行，同时弹出提示说明原因
• 确保列表框的勾选状态和工作表实际可见状态始终同步，避免出现不一致的情况

这样修改后，用户就不会再触发隐藏所有工作表的报错，同时能清晰知道操作限制的原因啦～

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