Inhabilitar boton X y Cerrar de excel

1 post / 0 nuevos
macario69
Imagen de macario69
Offline
última acción: Hace 3 años 4 meses
alta: 16/10/2020 - 18:47
Puntos: 25
Inhabilitar boton X y Cerrar de excel

Me explico.
Si pongo esto en  Thisworkbook :

Código:
Private Sub Workbook_BeforeClose(Cancel As Boolean) Cancel = True MsgBox "Por aki NO puedes salir. Solo por GUARDAR." End Sub



y en Modulo 1 tengo :

Código:
 
Sub EXPORTARCUADRECAJAPDF() On Error Resume Next Dim RUTA, ARCHIVO As String RUTA = "C:\COMPARTIDA\2020\CuadreCajaPDF\" ARCHIVO = Range("l21") MkDir (RUTA) Worksheets("Hoja1").PageSetup.PrintArea = "a1:s33" Worksheets("Hoja1").ExportAsFixedFormat Type:=xlTypePDF, _ Filename:=RUTA & ARCHIVO & ".PDF", QUALITY:=xlQualityStandard, _ INCLUDEDOCPROPERTIES:=True, IGNOREPRINTAREAS:=False, OPENAFTERPUBLISH:=False Application.Quit



Mi intencion es bloquear la salida por X y Cerrar de excel , mostrando el cuadro de aviso

y que solo se pueda salir despues de darle al boton
GUARDAR, que tiene el mandamiento de imprimir un pdf , guardarlo y luego salir cerrando excel.

El problema es que con la orden de thisworkbook impide tambien el cierre despues de ejecutar el

boton GUARDAR.

No se como aplicar la salvedad para que solo cierre despues de ejecutar GUARDAR

¿Podeis hecarme un cable?

Adjunto el archivo sin el primer codigo ya que si no no se puede salir.
A vuestra disposicion por si necesitais mas explicaciones.

En esto de las macros soy menos que principiante.
Gracias por vuestro tiempo.

AdjuntoTamaño
File muestra_consulta_necesitomas.xlsm24.95 KB