Estaba intentando hacer lo del siguiente enlace:
http://support.microsoft.com/kb/300688/es
El caso es que creo que no lo he hecho bien porque me sale un error en la siguiente línea del módulo:
'Disable the Menu Option
Sub ExitMenuState(blnExitState As Boolean)
Application.CommandBars("File").Controls("Exit").E nabled = blnExitState
End Sub
El módulo se llama cerrar (no se si influye eso) y después he hecho el formulario llamado frmSetCloseState con los dos botones con sus correspondientes nombre y eventos.
Creo que me falla porque no se qué hay que hacer cuando dice de crear el formulario:
Form: frmSetCloseState
-------------------------
Caption: Set Close State