MACRO para cerrar libro y opción de guardar o no guardar
Tengo esta macro que necesito modificar
El cual quiero que me pregunte si deseo guardar el libro o no.
Esto es la salir del mismo
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If (MsgBox("¿DESEAS GUARDAR?", vbQuestion + vbYesNo, "EL RETORNO") = vbYes) Then
ThisWorkbook.Save
End
Else
Cancel = 1
ThisWorkbook.Close
End If
End Sub
Quiero que si le doy que si
Entonces cierre el libro y lo guarde
y si le doy que no
Entonces cierre el libro y no lo guarde
1 Respuesta
H o l a:
Revisa la macro, estoy poniendo la variable salir al principio de la macro:
Dim salir
Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Por.Dante Amor
If salir = False Then
If (MsgBox("¿DESEAS GUARDAR?", vbQuestion + vbYesNo, "EL RETORNO") = vbYes) Then
ThisWorkbook.Save
Else
salir = True
ThisWorkbook.Close False
End If
End If
End SubS a l u d o s
HOLA DAN
si me funciono
pero al mostrar el msgbox y quisiera cancelar la operacion
digamos para que yo continue trabajando, en el msgbox no me deja cerrarlo
osea tengo que dar una de las dos opciones de a fuerza...
en caso de haber dado clic a "X" me sale el msgbox con las opciones pero quisiera cerrar el msgbox y continuar...
esto se puede?
Te anexo la macro actualizada
Dim salir
Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Por.Dante Amor
If salir = False Then
res = MsgBox("¿DESEAS GUARDAR?", vbQuestion + vbYesNoCancel, "EL RETORNO")
Select Case res
Case vbYes
ThisWorkbook.Save
Case vbNo
salir = True
ThisWorkbook.Close False
Case vbCancel
Cancel = True
End Select
End If
End Subs a l u d o s
