这个问题其实很好解决，核心是利用用户窗体的初始化事件，在窗体打开时自动读取列的当前隐藏状态，同步到对应的复选框上，而不是每次打开都重置复选框的默认状态。

具体实现步骤： #

1. 打开VBA编辑器（按Alt + F11），找到你的Hider用户窗体，双击窗体空白处进入代码编辑界面。
2. 在代码窗口的顶部，从右侧的事件下拉菜单中选择Initialize（这是窗体加载时自动触发的事件）。
3. 在UserForm_Initialize过程中，添加同步复选框与列状态的代码。

代码示例（以你的Week3复选框为例）： #

Private Sub UserForm_Initialize()
    ' 同步Week3复选框与N:Q列的状态
    ' 逻辑：列显示时复选框选中，列隐藏时复选框未选中
    Week3.Value = Not Range("N:Q").Columns.Hidden
    
    ' 如果还有其他复选框，比如Week1对应A:D列，同理添加：
    ' Week1.Value = Not Range("A:D").Columns.Hidden
End Sub

逻辑说明： #

你的点击事件代码是Range("N:Q").Columns.Hidden = Not Week3.Value，这意味着：

• 复选框选中（Week3.Value = True）→ 列隐藏状态为False（列显示）
• 复选框未选中（Week3.Value = False）→ 列隐藏状态为True（列隐藏）

所以在初始化时，我们需要反向推导：

• 如果列当前是显示的（Hidden = False），复选框应该设为True（选中）
• 如果列当前是隐藏的（Hidden = True），复选框应该设为False（未选中）
  这就是代码里Not Range("N:Q").Columns.Hidden的作用。

注意事项： #

• 确保列的范围引用正确，比如Range("N:Q")不要写错成其他列。
• 如果你的列组中存在部分列隐藏、部分列显示的情况，Columns.Hidden会返回Null，这种情况建议先统一列的状态，或者添加额外逻辑处理（比如默认按第一列的状态同步）。

这样设置后，每次打开Hider窗体时，复选框就会自动匹配对应列的实际隐藏状态，不会再出现重置的问题了。

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