Jump to content

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

Link to post
Share on other sites
  • 1 month later...

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.

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

Important Information

Privacy Policy