Jump to content
Sign in to follow this  
juandi

Inconvenientes con macro autoguardar

Recommended Posts

Gente como andan??

El incoveniente es que la macro que describo abajo, colocada en el un modulo y en thisworkbook cuando esta abiero el libro se ejecuta cada 10 minutos, pero cuando esta cerrado el libro tambien se ejecuta e incluisive se ejecuta con tos los libros abietos de excel, y cuando yo la consulto de mi maquina primero ovbiamnete me dice que esta abierta y es de solo lectura hasta ahi todo bien, pero la cierro y se vueve a abrir. como puedo solucionar esto con una macro NO con la funciona Autoguardado de excel ya que no graba sobre el mismo archivo.:mad:

EN EL MODULO

Sub Guarda()

dTime = Now + TimeValue("00:10:00")

Application.OnTime dTime, "Guarda"

ActiveWorkbook.Save

End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Application.OnTime dTime, "Guarda"

End Sub

Private Sub Workbook_Open()

Application.OnTime Now + TimeValue("00:10:00"), "Guarda"

End Sub

Sub Guarda()

dTime = Now + TimeValue("00:10:00")

Application.OnTime dTime, "Guarda"

ActiveWorkbook.Save

End Sub

Share this post


Link to post
Share on other sites

Hola:

Hasta donde yo se, y sobre esto no es que sepa mucho, la macro se seguirá ejecutando eternamente cada vez que transcurra el intervalo fijado a menos que:

Cierres el evento con:

Application.OnTime dTime, "Guarda",,False[/CODE]

o salgas de Excel, ya que no vas a poder cerrar el libro.

Si lo que quieres es guardar el libro cada 10 minutos, yo lo dejaría así:

[CODE]Private Sub Workbook_Open()
Application.OnTime Now + TimeValue("00:10:00"), "Guarda"
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.OnTime dTime, "Guarda",,False
End Sub

Sub Guarda()
dTime = Now + TimeValue("00:10:00")
ThisWorkbook.Save
Application.OnTime dTime, "Guarda"
End Sub[/CODE]

Salu2. Antoni.

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.

INFORMACIÓN BÁSICA SOBRE PROTECCIÓN DE DATOS

Responsable: Sergio Andrés Celemín

Finalidad: Moderar y responder comentarios de usuarios. Recuerda que la información que facilites es pública, y los datos que incluyas los leerá cualquier visitante de esta web, así como el avatar que poseas.

Legitimación: Consentimiento del interesado.

Destinatarios: Hetzner Online GmbH.

Derechos: Puedes ejercitar en cualquier momento tus derechos de acceso,
rectificación, supresión, oposición y demás derechos legalmente establecidos a
través del email sergio@ayudaexcel.com.

Información adicional: Encontrarás más información en la política de privacidad.

Sign in to follow this  



×
×
  • Create New...

Important Information

Privacy Policy