Observa este código:
Código:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Cancel = True
MsgBox "Modo de cierre no permitido..."
End Sub
Debe ubicarse -no en un módulo- sino en el objeto "EsteLibro" (ó "ThisBook" en la versión inglés).
El código:
a) impide que cierres el libro mediante un clic en "X";
b) impide que cierres el libro mediante: Archivo ---> Cerrar
c) impide que cierres el EXCEL mediante un clic en "X"; e
d) impide que cierres el EXCEL mediante; Archivo ---> Salir
Saludos