如何阻止userform加载？

Question

我创建了一个用户表单。在它加载之前我想检查一些条件。如果不满足这些条件，我不希望我的表单加载。

我尝试在错误消息框之后将userform1.hide置于初始化事件中，但表单仍然加载。

如何防止加载。

Answer 1

在UserForm_Activate()事件上编写代码。

Private Sub UserForm_Activate()
    If Range("A1") = "" Then
        Me.Hide
    End If
End Sub

根据您的要求调整条件。

Answer 2

工作簿标签代码：

Private Sub Workbook_Open()

    Dim obj As Object
        Set obj = UserForm1

    UserForm1.Show

End Sub

userform代码：

Private Sub UserForm_Initialize()

 Dim cellValue As Range
        Set cellValue = Sheets("Sheet4").Cells(1, 1)

    If cellValue = "RUN PROGRAM" Then
        Me.Show
    Else
        MsgBox "Conditions not met"
    End If
End Sub