Остановка при закрытии и открытии пользовательских форм _VBA

Question

Я создал две формы.При нажатии на кнопку 1 открывается форма № 2. При закрытии формы № 2 отображается форма № 1.Но это действие выполняется только один раз, оно останавливается во второй раз и почти не работает.Где код имеет проблему?

код Userform1:

Private Sub ShowUserform2_Click()
  UserForm1.Hide
  Unload UserForm1
  UserForm2.Show
End Sub

Код userform2:

Private Sub UserForm_Terminate()
  UserForm2.Hide
  Unload UserForm2
  UserForm1.Show
End Sub

Answer 1

Попробуйте этот код:

код Userform1:

Private Sub ShowUserform2_Click()
    UserForm1.Hide
    UserForm2.Show
End Sub

Код userform2:

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    UserForm1.Show
End Sub

Answer 2

Пропустить formName.Hide строки.Они не нужны.

После операторов Unload formName добавьте:

Set formName = Nothing

Также, сделайте строку otherForm.Show предшествующей двум вышеуказанным строкам.