Cerrar Mensaje Emergente Licencia

[CarlosKurt]

Hola a tod@s. 

Tengo el siguiente código:

Sub ProductoFabr(ByVal FilaDSK As Long, ByVal FilaSHM As Long)

Application.ScreenUpdating = False

    Dim ObjExc As Object
    
    Set ObjExc = CreateObject("Excel.Application")
    	ObjExc.Visible = False
    	ObjExc.Workbooks.Open Filename:="\\ServidorA\Producto\Pedidos.xlsx"

	....

En sub
    

Sucede que tengo Office 2016 (32bits) con la licencia no original. La macro se ejecuta con normalidad hasta que necesito extraer información de otro libro "Pedidos" que se encuentra en la otra PC, es ahí donde la macro se detiene y muestra un mensaje, tipo mensaje emergente, que menciona lo siguiente : "Hay un problema con su licencia de Office". Así que cierro ese mensaje emergente y la macro continua con normalidad. Lo que necesito saber es como cerrar el mensaje emergente automáticamente mediante macro. 

Saludos.

[Antoni]

¿Comprando una licencia? ?

[CarlosKurt]

Hace 16 minutos , Antoni dijo:

¿Comprando una licencia? ?

Me gustaría comprar la licencia, pero la empresa en la que laboro es mas dura que una roca.

Saludos