Bloquear Btn Cerrar (X) del Excel

[Granduke]

Iniciado por mrocf

Hola! Granduke. En un módulo "común" incorpora lo siguiente:

Código:

Public Cierre As String

Sub CerrarArchivo()
  Cierre = "SI"
  ActiveWorkbook.Close SaveChanges:=True
End Sub 

Por su parte, en el módulo del libro (ThisWorkbook) debes colocar:

Código:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
  If Cierre <> "SI" Then
    Cancel = True
    MsgBox "Modo de cierre no permitido..."
  End If
End Sub 

La idea es que para cerrar tu libro, deberás ejecutar la macro CerrarArchivo antes indicada.

Esa macro adjudica a la variable "Cierre" el valor "SI" (es el único lugar del proyecto donde eso se hace).
Como esa variable es "Pública" (por Public Cierre As String), al llegar a "Workbook_BeforeClose" el If - End If no se verifica, y el libro se cierra normalmente.

Espero que te sirva la idea.
Saludos, Cacho.

PERFECTO. Me estaba volviendo loco.

GRACIAS, Mil gracias