☰

用户窗体存在于所有工作簿中。我该如何停止这种情况？

tag-icon • tag-icon microsoft-excel vba
用户窗体存在于所有工作簿中。我该如何停止这种情况？

我读过一些类似的帖子，但一无所获。我打开了 2 个工作簿，当我单击打开 UserForm 的工作簿以外的工作簿时，UserForm 仍然存在。

我有此代码，它可以对创建 UserForm 的工作簿执行我想要的操作。但是当我单击另一个工作簿时，UserForm 仍留在屏幕上。我该如何停止这种情况？

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    If Sh.Name <> "HTFD" And Flight_Deck.Visible = True Then
        Unload Flight_Deck
    End If
    If Sh.Name = "HTFD" And Flight_Deck.Visible = False Then
        Flight_Deck.Show vbModeless
    End If
End Sub

答案1

在用户窗体代码中 -

Private Sub UserForm_Deactivate()
    Unload.me
End Sub

失去焦点时卸载。

相关内容