Hola buenos días, me ha surgido una duda que me lleva de cabeza desde hace algún tiempo y no soy capaz ni de que funcione lo que ya tengo hecho ni de encontrar otra forma de hacerlo, me explicaré:

Tengo un libro con macros, como es para el uso de muchos usuarios, unos 25, lo e capado prácticamente todo y e dejado que solo las funcionalidades necesarias, pero hay una cosa que no e conseguido aún, no e conseguido encontrar la forma de hacer que si el libro se abre en vista protegida, es decir sin las macros habilitadas, e cierre automaticamente despues de mostrar un msgbox diciendo que hay que tenerlas activadas para poder abrirlo, y así que se ejecuten las macros antes de poder ver la información.

Estoy probando con el evento del objeto application "ProtectedViewWindowActivate" para ver si al abrirse el libro en vista protegida, hace lo que necesito, pero no me va, no se si es que no puede hacerse como lo hago o que lo e estructurado mal, en principio e creado un modulo de clase y luego en otro modulo lo e conectado al objeto application, eso lo e visto en varios tutoriales y creo que lo tengo bien implementado, os pongo el codigo a ver que os parece:

Este es el modulo de clase:

Option Explicit
'' Creamos un objeto aplication con eventos para usar los procedimientos
Public WithEvents ExcelAppEvents As Application

Private Sub ExcelAppEvents_ProtectedViewWindowActivate(ByVal Pvw As ProtectedViewWindow)

' Si se abre el libro en modo protegido, sin macros activadas,
' se muestra el mensaje y se cierra la aplicación de esta forma no puede saltarse la validación de usuarios antes de ver el libro
   
    MsgBox "No puede abrir este libro si no tiene antes las macros activadas" & vbNewLine _
    & " Abra un archivo nuevo de excel, diríjase a la pestaña ARCHIVO --> OPCIONES --> CENTRO DE CONFIANZA " _
    & vbNewLine & "--> CONFIGURAR CENTRO DE CONFIANZA --> UBICACIONES DE CONFIANZA " & _
    "Luego marque la casilla inferior PERMITIR UBICACIONES DE CONFIANZA QUE ESTÉN EN RED " & vbNewLine & _
    "AGREGAR NUEVA UBICACIÓN y escoja la carpeta donde se encuentra el archivo", vbCritical

    Application.Quit
   
End Sub

Este es el otro modulo:

Option Private Module
Option Explicit
Public ApplicationClass As New ApplicationEventClass

Sub ConnectEventHandler()
   Set ApplicationClass.ExcelAppEvents = Application
End Sub

No se si voy por buen camino o si estoy totalmente equivocado, agradezco de antemano vuestra ayuda, un saludo.

PD. E seguido los pasos que pone aquí pero después creo que estoy haciendo algo mal..

https://docs.microsoft.com/es-es/office/vba/excel/concepts/events-worksh...