vba中的GUI调用后，无法closures/编辑excel表单

我在我的GUI中有一个button，它调用这个过程：

Private Sub CommandButtonPersonalFilter_Click() Unload GUI Dim myPath As String Dim Wb As Workbook myPath = Left(ThisWorkbook.Path, InStrRev(ThisWorkbook.Path, "\") - 1) If Dir(myPath & "\filterPartsList.xlsx") = "" Then FileCopy "Z:\Dokumentstyring\Templates\filterPartsList.xlsx", myPath & "\filterPartsList.xlsx" End If Set Wb = HelpFunctions.GetWorkbook(myPath & "\filterPartsList.xlsx") Wb.Activate Wb.Sheets(1).Range("A1").Select Set Wb = Nothing End Sub 

当我点击button（从a.xlsx）它打开了一个新的工作簿（b.xlsx，所有它应该），但如果我然后决定b.xlsx就好了，我想closuresb.xlsx （或编辑） ，那么我只允许这样做， 如果我第一次跳回到a.xlsx，点击任何单元格，然后跳回到b.xlsx

以下是帮手function：

 Public Function GetWorkbook(ByVal sFullName As String) As Workbook Dim sFile As String Dim wbReturn As Workbook sFile = Dir(sFullName) On Error Resume Next Set wbReturn = Workbooks(sFile) If wbReturn Is Nothing Then Set wbReturn = Workbooks.Open(sFullName) End If On Error GoTo 0 Set GetWorkbook = wbReturn End Function 

不是一个大问题，但很高兴找出问题的可能性。 所有的macros都存储在personal.xlsb中