Excel用户窗体，仅在链接的工作表处于活动状态时显示

Question

希望有人能帮忙。我对 VB 代码很陌生。

我正在构建一组用户表单，其中数据输入链接到各种不同的工作表。我想要的是我的用户窗体继续命令按钮仅在相应的工作表处于活动状态时继续执行某个用户窗体。

例如，我的"建筑物"用户窗体必须仅在工作表"建筑物"在工作簿上处于活动状态时才显示。 如果工作表"建筑物"未处于活动状态，则代码必须查找下一个活动工作表并转到链接到该工作表的用户窗体。

例如，如果工作表"内容"在工作簿上处于活动状态，则代码必须显示我创建的"内容"用户表单。

我的第一个用户窗体要求用户通过单击激活工作簿中工作表的切换按钮来选择哪些工作表必须处于活动状态。

从那里，用户单击"继续"按钮，然后我需要我的代码来查看哪些工作表处于活动状态。

到目前为止我有这个，但我知道它不正确...

Private Sub CommandButton1_Click()
Dim answer As Integer
answer = MsgBox("Have you selected all your sections?", vbYesNo + 
vbQuestion, "Selection Query")
If answer = vbYes And Sheets("Buildings") = Active Then
Me.Hide
Buildings_UF.Show
Else
Exit Sub
End If
End Sub

提前致谢 帕特里克

Answer 1

UserForm.Show将在打开用户窗体时停止子执行，因此以下代码就足够了(未经测试的代码(：

If answer = vbYes Then
Me.Hide
If Worksheets("Buildings").Visible then Buildings_UF.Show
If Worksheets("OtherSheet").Visible then OtherSheet_UF.Show    
...
End If