如何在vba中筛选后在工作簿顶部显示

我有一个在vba上进行筛选的代码，为了将要在筛选中使用的数据放入我使用的userform中，该部分正在工作（部分感谢本页的用户，再次感谢..:p），但现在的问题是，如果有另一本书已经打开，它不会将我正在使用的那本书放在首位。 另一个问题是我使用

工作簿（“Database 2017 plus”）。Windows（1）.Visible=True/False

为了在显示用户表单时隐藏书籍，但同时不要隐藏在那一刻打开的其他书籍，它可以工作，但只要用户表单处于活动状态，我就不能使用这些其他书籍，如果可能的话，我愿意使用

提前谢谢

Private Sub AllIssues_Click()
Unload Me
Workbooks("Database 2017 plus").Windows(1).Visible = True

With Workbooks("Database 2017 plus")

sheets("reported").Visible = True
sheets("reported").Select
sheets("datos").Unprotect
sheets("datos").Visible = True
sheets("principal").Visible = True
sheets("History slot").Unprotect
sheets("history slot").Visible = True

End With

End Sub

---

关于show 0的另一个问题，谢谢

用户表单是如何显示的，模态还是非模态？使用“userformName.Show 0”可以在其他工作簿或工作表中工作。是否禁用

application.ScreenUpdate=false

并不再重新启用它？是否可以显示代码？我编辑问题以添加代码