Error 424 en tiempo de ejecucion

[viroce]

Buen dia, he estado realizando un pequeño reporte en el cual recopilando algunas macros de la web, n este caso lo que quiero es que se realice un reporte de que usuarios hanutilizado el archivo excel en un comienzo me salia "error ambiguo por usar un comando dos veces pero despues al unir las acciones en un solo comando me volvio a salir otro error que es el tema que pongo a su concideracion para que me puedan ayudar que es el de error en tiempo de ejecucion en la formula siguiente que me resalta en amarillo:

Sub Iniciar()
Set AppObject.AppEvents = Application
End Sub
[/HTML]

en dicha instruccion se detiene las macro y no se ejecuta; el comando que uni para que no me salga error ambiguo es:

[HTML]Private Sub Workbook_Open()
UserForm1.Show vbModal
Call Iniciar
End Sub
[/HTML]

[HTML]Private Sub Workbook_BeforeClose(Cancel As Boolean)
Call Iniciar
End Sub [/HTML]

Pido por favor me puedan ayudar, gracias

[AlexanderS]

Hola imagino que este código lo cogiste de aquí EXCELeINFO – Excel vba e información - Macro para crear un log y saber cuántas veces se abre un archivo de Excel, ahora creaste el modulo de clase??? y a ese modulo le pusiste este nombre clsApp ???

Sube tu archivo para que te podamos ayudar Ayuda Excel - Normas

Salu2

[viroce]

Les agradesco mucho por su ayuda; efectivamente ese codigo lo cogi de la pagina y lo adecue a mi archivo, pero revisando en el foro encontre una solucion a dicho inconveniente, en el cual decia que volvio a efectuar el procedimiento desde el comienzo pegando y copiando los paso en un nuevo archivo, realizando eso resolvi mi inconveniente.

les agradezco mucho por su apoyo

saludos.

Cerrar Tema.