............ Foro Excel
Si no lo has hecho aún: REGISTRATE!!!

Autoguardar en Excel 2000

Ver el tema anterior Ver el tema siguiente Ir abajo

Autoguardar en Excel 2000

Mensaje por GalileoGali el Dom Oct 31, 2010 8:47 pm

En principio No existe un Comando de Autoguardar en Excel 2000. Se puede activar un Complemento que viene con Excel. Ahora a mis compañeros de Banco les sugerí, instalarlo, pero hete aqui que pregunta con bastante frecuencia si queremos guardar los cambios o no, con lo que se torna bastante poco "amable".

Así que bueno, les hice un "Complemento de Excel" hasta ahora funcionaba, vamosa ver que tal quedo con unos cambios que introduje en el fin de semana.

Estuve investigando y Excel 2000 presento un fallo al utilizar Evento Auto Close en un Add-In, para solucionarlo se puede descargar un Parche o bien diseñar un evento a nivel Application en un Modulo de Clase With Events

[Tienes que estar registrado y conectado para ver este vínculo]
[Tienes que estar registrado y conectado para ver este vínculo]




En Un Libro Vacio, en VBA, en un módulo de clase, al que elegi llamar "EventClassModule":
Código:
Public WithEvents App As Application

Private Sub App_WorkbookBeforeClose(ByVal Wb As Workbook, Cancel As Boolean)
    If Wb.IsAddin Then Exit Sub
    Módulo1.Anular
On Error Resume Next
Wb.Saved = False
End Sub

Luego en un Modulo Estandard
Código:
Option Explicit
Public Ahora As Double
Public Const cIntervalo = 60 ' 60 segundos
Public Const cEjecutarProcedim = "Guardar"  ' el procedimiento
Public X As New EventClassModule

Sub Pautar()
If Workbooks.Count = 0 And Ahora > 0 Then Anular
Ahora = Now + TimeSerial(0, 0, cIntervalo)
Application.OnTime EarliestTime:=Ahora, Procedure:=cEjecutarProcedim, _
        Schedule:=True

End Sub
Sub Guardar()
On Error Resume Next
If ActiveWorkbook.Path <> "" Then
ActiveWorkbook.Save
End If
Pautar
End Sub
Sub Anular()
On Error Resume Next
Application.OnTime EarliestTime:=Ahora, Procedure:=cEjecutarProcedim, _
        Schedule:=False
End Sub
Private Sub Auto_Open()
Módulo1.IniciarApp
Módulo1.Pautar
End Sub
Sub IniciarApp()
Set X.App = Application
End Sub
Guardar el Libro Como Complemento de Excel, e instalarlo.



Última edición por GalileoGali el Lun Nov 01, 2010 11:42 pm, editado 7 veces

_________________
GalileoGali
M.A.P. 2010-2013
Microsoft Active Professional
avatar
GalileoGali
Admin

Masculino Cantidad de envíos : 1962
Edad : 61
Ciudad - Pais : QUIROGA, Argentina
Version de Excel : 2000-2003-2007-2010
Fecha de inscripción : 24/01/2008

http://excelgali.mejorforo.net

Volver arriba Ir abajo

Re: Autoguardar en Excel 2000

Mensaje por Tatayayan el Lun Nov 01, 2010 12:29 pm

1000 veces perdón, no leí detenidamente el post. Bajé el archivo, lo abrí cerré todos los libros y cerré Excel, y me dió un error:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Anular
ActiveWorkbook.Saved = False 'ACÁ
End Sub
avatar
Tatayayan
Moderador
Moderador

Masculino Cantidad de envíos : 319
Ciudad - Pais : Chamical- La Rioja - ARG
Fecha de inscripción : 20/11/2008

Volver arriba Ir abajo

Re: Autoguardar en Excel 2000

Mensaje por GalileoGali el Lun Nov 01, 2010 1:32 pm

Estoy testeando: y hasta ahora no he sufrido errores, pero bueno sera cuestion de considerar un tiempo mayor. Mucho me interesaría saber si el Libro activo al momento de cerrar es un Libro1 o un Libro ya guardado y Nombrado????

_________________
GalileoGali
M.A.P. 2010-2013
Microsoft Active Professional
avatar
GalileoGali
Admin

Masculino Cantidad de envíos : 1962
Edad : 61
Ciudad - Pais : QUIROGA, Argentina
Version de Excel : 2000-2003-2007-2010
Fecha de inscripción : 24/01/2008

http://excelgali.mejorforo.net

Volver arriba Ir abajo

Re: Autoguardar en Excel 2000

Mensaje por Tatayayan el Lun Nov 01, 2010 1:53 pm

Fue así, le dí clic a bajar el archivo (uso Mozilla FireFox), en un cuadro de dialogo le indique abrir con Excel lo abrió y no había libro activo ni nada, cerré Excel y me dió error.
Despúes, lo abri cerré el libro1 y cerré Excel y también me dió error.
avatar
Tatayayan
Moderador
Moderador

Masculino Cantidad de envíos : 319
Ciudad - Pais : Chamical- La Rioja - ARG
Fecha de inscripción : 20/11/2008

Volver arriba Ir abajo

Re: Autoguardar en Excel 2000

Mensaje por GalileoGali el Lun Nov 01, 2010 9:25 pm

He introducido algunos cambios, con la intención de evitar errores. Los puse en mi primer Post.

_________________
GalileoGali
M.A.P. 2010-2013
Microsoft Active Professional
avatar
GalileoGali
Admin

Masculino Cantidad de envíos : 1962
Edad : 61
Ciudad - Pais : QUIROGA, Argentina
Version de Excel : 2000-2003-2007-2010
Fecha de inscripción : 24/01/2008

http://excelgali.mejorforo.net

Volver arriba Ir abajo

Re: Autoguardar en Excel 2000

Mensaje por Contenido patrocinado


Contenido patrocinado


Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.