Desabilitar el botn cerrar y barra de titulos

[Pablus00]

Hola Skylug, lo que pasa es que estas mezclando los codigos, llamando a la funcion que impide salir desde tu boton, entonces al clickear obviamente te mostrara que no puede salir.

lo tenes que poner en thisworkbook pero dentro del evento BeforeClose: (al intentar cerrar o sea before close, activa la proteccion)

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If CloseMode = 0 Then
MENSAJE = MsgBox("HACER CLIC EN SALIR")
Cancel = 1
End If
End Sub

y para tu boton:

Private Sub CommandButton32_Click()
ActiveWorkbook.Save 'si queres salvarlo antes de cerrar sino borra la linea
Application.Quit
End Sub

Saludos