☰

Cómo guardar y cerrar una hoja de cálculo de Excel después de un tiempo de inactividad en Excel 2010

tag-icon • tag-icon microsoft-excel-2010
Cómo guardar y cerrar una hoja de cálculo de Excel después de un tiempo de inactividad en Excel 2010

Tengo Excel 2010. Estoy experimentando situaciones en las que las personas dejan el trabajo por el día y dejan abierto exclusivamente un libro de Excel en un servidor de archivos compartido; como resultado, otros usuarios no pueden editar el libro. ¿Cómo puedo mitigar este problema?

Respuesta1

La solución recomendada a su problema es permitir que varios usuarios editen la hoja de cálculo de Excel al mismo tiempo. VerAcerca de los libros compartidosen la ayuda de Excel para más detalles. El quid de este enfoque es ir a la pestaña Revisar en la cinta de Excel y luego hacer clic en el botón "Compartir libro" en la sección "Cambios".

Por supuesto, intente utilizar la función "Libros de trabajo compartidos" como solución principal. Siga leyendo solo si ya ha probado Shared Workbooks y no puede lograr que satisfaga sus necesidades.

Si eso no funciona en su situación por algún motivo (ciertas funciones del libro no son compatibles con los libros compartidos), intente estosolución VBA:

En mi humilde opinión, por razones de protección de sus datos, esto es lo más imprudente.

Imagine el escenario en el que un usuario ha eliminado accidentalmente muchos datos y está sentado con la cabeza entre las manos preguntándose qué hacer y cuándo confesar. Ahora todos sabemos que puede simplemente cerrar el libro sin guardar los cambios y ya no tendremos problemas, pero mientras consideramos el siguiente paso, este código se ejecuta y ahora tendrá un muy mal día. Dicho esto, prueba esto: -

ALT+F11 para abrir el editor VB. Haga doble clic en 'ThisWorkbook' y pegue los primeros 2 módulos a la derecha.

Private Sub Workbook_Open()
    StartTimer
End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    StartTimer
End Sub

Ahora haga clic derecho en el módulo de inserción 'ThisWorkbook' y pegue este código. Guarde, cierre y vuelva a abrir el libro y, después de 15 minutos de inactividad, se guardará y se cerrará automáticamente.

Const idleTime = 900 'seconds
Dim Start
Sub StartTimer()
    Start = Timer
    Do While Timer < Start + idleTime
        DoEvents
    Loop
    Application.DisplayAlerts = False
    ActiveWorkbook.Close SaveChanges:=True
    Application.DisplayAlerts = True
End Sub

información relacionada