Excel VBA列隐藏问题：Workbook_Open不生效且切换单元格后列恢复显示

1. 修复Workbook_Open事件无效的问题 #

原代码未明确指定操作的工作表，工作簿打开时默认对象可能不是目标工作表，导致代码执行无效果。同时原代码用Now包含时间部分，可能误隐藏当天的列，需改用Date()仅取当前日期。修改后的代码如下：

Private Sub Workbook_Open()
    HideColumnsDate
End Sub

Sub HideColumnsDate()
    Dim ws As Worksheet
    Dim cell As Range
    '替换成你实际的工作表名称，比如"销售报表"
    Set ws = ThisWorkbook.Sheets("Sheet1")
    
    '关闭屏幕刷新，避免闪烁并提升执行速度
    Application.ScreenUpdating = False
    
    For Each cell In ws.Range("B5:AF5")
        If IsDate(cell.Value) Then
            '仅隐藏日期早于当前日期的列，同时自动取消不符合条件的列的隐藏
            cell.EntireColumn.Hidden = (DateValue(cell.Value) < Date)
        Else
            '非日期值的列保持显示
            cell.EntireColumn.Hidden = False
        End If
    Next
    
    Application.ScreenUpdating = True
End Sub

2. 解决切换单元格后列重新显示的问题 #

这种情况通常是工作表有其他事件干扰，或视图在单元格切换时重置。可将隐藏逻辑绑定到工作表激活事件，确保每次切换到该工作表时重新应用规则：

1. 右键目标工作表标签→选择「查看代码」打开工作表代码模块
2. 粘贴以下代码：

Private Sub Worksheet_Activate()
    HideColumnsDate
End Sub

额外注意事项 #

• 打开工作簿时必须启用宏，否则Workbook_Open事件无法触发
• 确保B5:AF5区域的日期是Excel可识别的标准日期格式，避免IsDate判断失效

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