Excel中设置ActiveX ComboBox总是触发Dirty标志的问题

ActiveX控件的属性（比如.Text或.List）即便被设置为和当前完全相同的值，Excel仍会将这个赋值操作视为对工作簿的修改，进而触发Dirty标志，导致打开文件后即便无实际内容变更，也会提示保存。

在设置ComboBox的.Text属性前，先判断目标值是否和当前控件值一致，仅当二者不同时才执行赋值操作，避免无意义的属性变更触发Dirty状态。同时确保ActiveWorkbook.Saved = True在所有控件操作完成后执行。

修改后的Workbook_Open代码：

Private Sub Workbook_Open()
    Application.EnableEvents = False
    mbEvents = False
    
    Dim targetText As String
    Dim wsDoNow As Worksheet
    Dim wsQuestions As Worksheet
    
    Set wsDoNow = Sheets("Do Now Topic")
    Set wsQuestions = Sheets("Questions")
    
    ' 获取要设置的目标文本
    With wsQuestions.Range("A2:A" & LastRow.Row)
        targetText = wsQuestions.Cells(.Find(What:=wsDoNow.Cells(3, 13), LookAt:=xlWhole, SearchDirection:=xlNext, MatchCase:=False).Row, 4)
    End With
    
    ' 配置ComboBox
    With wsDoNow.ComboBox1
        .Clear
        .List = getUniqueArray(wsQuestions.Range("D2:D" & LastRow.Row))
        ' 仅当目标文本与当前值不同时才赋值
        If .Text <> targetText Then
            .Text = targetText
        End If
    End With
    
    mbEvents = True
    Application.EnableEvents = True
    ActiveWorkbook.Saved = True
End Sub

• 提前定义工作表对象，避免重复调用Sheets()，提升代码可读性与执行效率。
• 确认LastRow变量已在代码中正确定义并赋值，避免因未初始化引发错误。

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