用户窗体禁用所有字段

Question

我有一个可以填写的用户表单，但只有在之前的用户表单被填写的情况下才可以，因为在用户表单中有基于以前输入的计算，如果这些计算为空，计算就会崩溃。

现在我确实写了几个if语句来检查这些空值，然后我灵光一现。如果其中一个字段丢失了，用户表单就会被禁用。这样想，这样做，它就起作用了:)

if DP1 = "" then
reportback.enable = false
else
end if

这就是它的形式，它显示得很漂亮，没有什么可以改变的，但是哦..你甚至不能关闭表单，什么都不能用..LOL。

所以我的问题是。有没有一种方法可以禁用任何输入中的所有字段，但仍然激活cancel按钮？

Private Sub Cancel_Click()
Unload reportback
End Sub

Answer 1

使用下面的代码禁用窗体上的所有控件以避免该问题。UserForm1指的是用户表单的名称，请相应地替换。

Dim ctrl As Control

For Each ctrl In UserForm1.Controls
    ctrl.Enabled = False
Next

Set ctrl = Nothing