VBA-excel：如何检查是否更改了任何控件

Question

我是 VBA 的新手，想知道是否有任何方法可以检查 UserForm controls 是否已更改？也许所有控件都有一些全局事件处理程序？

例如，我有一个带有一些数据的UserForm1，上面有Controls。还有某种全局布尔值B_bool，默认为False。

如果用户更改任何文本或单击任何单选按钮，或选中任何复选框 B_bool 变为 True。

我尝试为每种类型的控件创建某种事件处理程序和一个 Classmodule，但只有 textbox 和 optionbuttons 类可以正常工作。其他类（复选框、组合框）对 OnChange 事件发誓（对象或类不支持该组事件）

对于每种类型的控件，以下代码基本相同，所以我认为没有理由提出问题

Private WithEvents MyTextBox As MSForms.TextBox

Public Property Set Control(tb As MSForms.TextBox)
    Set MyTextBox = tb
End Property

Private Sub MyTextBox_Change()
   B_bool = True
End Sub

然后是用户窗体代码

Public tbCollection As Collection

    Private Sub Userform_Initialize()
    Set tbCollection = New Collection   
     For Each ctrl In Me.Controls
            If TypeOf ctrl Is MSForms.TextBox Then
                Set obj_tb = New clsTextBox
                Set obj_tb.Control = ctrl
                tbCollection.Add obj_tb
            End If 
    Next ctrl
    End Sub

Answer 1

您可以通过以下方式检测工作簿是否有未保存的更改：

ActiveWorkbook.Saved

如何使用它的示例：

'Here is the code where your userform is prepared for the user...
'maybe you set default values or something like that.  Once you're
'finished the changes YOU (or your VBA) are making to the workbook,
'SAVE it.  This will mark a "starting point" to watch for changes...

 ActiveWorkbook.Save

'And here would be your code (if any) that runs when the user is doing
'he does.  blah blah blah
'When it's time to check if the user made any changes, find out with:

If ActiveWorkbook.Saved then
    'no changes have been made
Else
    'changes have been made
    'do whatever you need to do to save your data.
End If

请参阅下面的链接以了解 AutoSave 可能会或可能不会影响此功能。

---

更多信息：

• MSDN：Workbook.Saved Property (Excel/VBA)

• MSDN：Workbook.Save Method (Excel)

• MSDN：Workbook.AutoSaveOn Property (Excel)

• MSDN：How AutoSave impacts add-ins and macros