Salir de Excel cuando la "X" esta bloqueada

[Donnyal]

Hola a todos, tengo el siguiente problema: Tengo un código para bloquear el cerrado de excel, ya que tengo procesos que se hacen al salir de excel con un boton. Lo malo es que al correr el codigo no puedo salir de ninguna forma, lei un foro acerca de esto pero la solucion la dan con un codigo "Sub" el problema es que yo quiero manejarlo desde un UserForm de la siguiente forma:
ThisWorkbook: [codigo declarado]

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Cierre <> "SI" Then
Cancel = True
MsgBox "Para Salir de esta Aplicación, Utilice en el Menu la Opción <SALIR>", 48, "Inhabilitado"
End If
End Sub

Módulo1 [codigo declarado]

Public Cierre As String

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

Este ultimo codigo del modulo 1 es el que necesito plasmar en un codigo privado que seria algo asi:

Private Sub Boton12_Click()
????????? (aqui va el codigo)
End Sub

De antemano Gracias!