vba - 用户表单禁用所有字段

Question

我有一个可以填写的用户表单，但前提是填写了以前的用户表单，因为用户表单中有基于先前输入的计算，如果这些为空，则计算崩溃。

现在我确实写了一些 if 语句来检查这些空值，然后大脑闪过.. 如果其中一个字段丢失了，用户窗体就被禁用了。这么想，这么做，它起作用了:)

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

那是表格，它显示得很漂亮，没有什么可以改变的，但是哦..你甚至不能关闭表格，没有任何效果..哈哈。

所以我的问题。有没有办法禁用任何输入的所有字段但仍然激活取消按钮？

Private Sub Cancel_Click()
Unload reportback
End Sub

score 5 · Accepted Answer

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

Dim ctrl As Control

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

Set ctrl = Nothing

1 回答 1