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 respuesta
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
