Macro exclusiva para un libro

expertos tengo el siguiente código en una macro

sub reloj()

range("3!a1").formula= "now()"

application.OnTime now + time Value("00:00:01"), "reloj".

end sub

Sub auto_Open()

call reloj

end sub

como puedo decirle que esta macro es exclusiva para este libro y no me mande error o no me deje seleccionar otro libro, quiero poder trabajar en otros libros mientras esta trabaja solo en uno

gracias

1

1 Respuesta

806.575 pts. Excel avanzado y VBA

Aquí tienes la solución. Se parará cuando abras otro archivo y cuando vuelvas se activará de nuevo. Ya sabes: finaliza y puntúa por favor,

En el objeto thisworkbook tienes que poner estas macros:

Private Sub Workbook_Activate()

control = 1

timer

End Sub

Private Sub Workbook_Deactivate()

parar

End Sub

Y en un módulo tienes que poner estas otras:

Public control

Sub timer()

If control = 1 Then

Application.OnTime Now + TimeValue("00:00:01"), "reloj"

End If

End Sub

Sub reloj()

If control = 1 Then

Range("a1").Value = Time

timer

Else

Range("a1").Value = ""

End If

End Sub

Sub parar()

control = 0

timer

End Sub

Sub auto_open()

control = 1

timer

End Sub


Luis

en verdad que eres todo un experto dominas el tema de pies a cabeza, en la escuela nos enseñan la teoría pero ustedes saben toda la maña

excelente

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas