excel - 关闭用户窗体也会关闭我的工作簿

Question

我在用户表单中有这个宏来注册会计操作，在我完成注册后，我点击用户表单中的“x”按钮关闭我的 excel 工作簿而不询问我。我知道这段代码是问题所在，因为我的 Userform 做了其他事情，而这些其他事情不会导致这个问题。

Confirmar = MsgBox("¿Desea registrar la nueva operación contable?", vbYesNo)

If Confirmar = vbYes Then
   Next_LibroDiario = WShe_LibroDiario.Cells(Rows.Count, 2).End(xlUp).Row + 1

   If APP_RegistroContable.OptionButton_Débito = True Then
      WShe_LibroDiario.Cells(Next_LibroDiario, 7) = APP_RegistroContable.Monto + 0
      APP_RegistroContable.Monto = ""

   ElseIf APP_RegistroContable.OptionButton_Crédito = True Then
      WShe_LibroDiario.Cells(Next_LibroDiario, 8) = APP_RegistroContable.Monto + 0
      APP_RegistroContable.Monto = ""

   ElseIf APP_RegistroContable.OptionButton_Débito = False _
   And APP_RegistroContable.OptionButton_Crédito = False _
   Then
      MsgBox "Please select an accounting item"
      Exit Sub

   End If

   WShe_LibroDiario.Cells(Next_LibroDiario, 2) = APP_RegistroContable.Ctas_Bancarias
   APP_RegistroContable.Ctas_Bancarias = ""

   WShe_LibroDiario.Cells(Next_LibroDiario, 3) = CDate(APP_RegistroContable.Fecha)
   APP_RegistroContable.Fecha = ""

   WShe_LibroDiario.Cells(Next_LibroDiario, 4) = APP_RegistroContable.Recibo_CF
   APP_RegistroContable.Recibo_CF = ""

   WShe_LibroDiario.Cells(Next_LibroDiario, 5) = APP_RegistroContable.Nombre
   APP_RegistroContable.Nombre = ""

   WShe_LibroDiario.Cells(Next_LibroDiario, 6) = APP_RegistroContable.Auxiliar + 0

   WShe_LibroDiario.Cells(Next_LibroDiario, 9) = APP_RegistroContable.Clasificación
   APP_RegistroContable.Clasificación = ""

   WShe_LibroDiario.Cells(Next_LibroDiario, 10) = APP_RegistroContable.Comentario
   APP_RegistroContable.Comentario = ""

' 这部分使用注册日期和在该日期注册的操作数为会计操作创建一个 ID

   Last_ID = WShe_LibroDiario.Cells(Rows.Count, 2).End(xlUp).Row

   Set Rang_Fecha = WShe_LibroDiario.Range("C8:C" & Last_ID)
   Set Rang_ID = WShe_LibroDiario.Cells(Last_ID, 3)

   Inte_IDGenerator = WorksheetFunction.CountIf(Rang_Fecha, Rang_ID)

   WShe_LibroDiario.Cells(Last_ID, 1).Value = WShe_LibroDiario.Cells(Last_ID, 3).Value & "-0" & _
   Inte_IDGenerator

   MsgBox "The accounting operation is now in the system"

End if

标签： excelvbauserform