Macro para mantener pantalla completa al maximizar ventana

Buenas,

He estado buscando por este foro y por internet y no he encontrado una solución al problema que tengo.

El caso es que tengo una aplicación la cual hago que pase a pantalla completa al arrancar el fichero. También la normalizo al cerrarlo.

Sub auto_open()
With Application
.DisplayFullScreen = True
.CommandBars("Worksheet Menu Bar").Enabled = False
End With
End Sub

Sub auto_close()
With Application
.DisplayFullScreen = False
.CommandBars("Worksheet Menu Bar").Enabled = True
End With
End Sub

Con esto hace lo que yo quiero (aunque también me gustaría que no se vieran los índices de las filas y columnas, pero creo que eso no es posible). El problema viene si minimizo la ventana (pulsando en el icono de la barra de tareas). Cuando la vuelvo a la ventana de Excel, ya no está en pantalla completa. ¿Cómo podría solucionar esto?

He estado mirando y existe una private sub window_activate o workbook_activate pero no me funcionan.

Saludos,