excel

[lmg7]

Hacé lo siguiente:

- En el libro a auditar crea una hoja llamada Uso
- Seleciona Herramientas\Macro\Editor de Visual Basic (o Alt+F11).
- En el editor: Insertar\Módulo y te crea una módulo.
- Dentro del módulo copia el siguiente código:

Código:

Sub auto_open()
    Hoja = ActiveSheet.Name
    If ActiveSheet.Name <> "Uso" Then Sheets("Uso").Select
    ActiveSheet.Unprotect ("Luis")
    Cells(1, 1).Select
    Selection.End(xlDown).Select
    Selection.Offset(1, 0).Select
    ActiveCell.Value = Application.UserName
    Selection.Offset(0, 1).Select
    ActiveCell.Value = Now()
    ActiveSheet.Protect ("Luis")
    Sheets(Hoja).Select
    ActiveWorkbook.Save
End Sub
Sub auto_close()
    Hoja = ActiveSheet.Name
    If ActiveSheet.Name <> "Uso" Then Sheets("Uso").Select
    ActiveSheet.Unprotect ("Luis")
    Cells(1, 1).Select
    Selection.End(xlDown).Select
    Selection.Offset(0, 2).Select
    ActiveCell.Value = Now()
    Selection.Offset(0, 1).Select
    ActiveCell.FormulaR1C1 = "=(RC[-1]-RC[-2])*24"
    ActiveSheet.Protect ("Luis")
    Sheets(Hoja).Select
    ActiveWorkbook.Save
End Sub

- Remplazá Luis por una contraseña de tu elección.

Listo!, cada vez que alguien use el libro, en la hoja Uso, se almacenará el nombre del usuario, la fecha y hora del ingreso, la fecha y hora del egreso y la diferencia en horas. Además la hoja queda protegida contra escritura mediante tu contraseña.

Espero te sirva.

Si necesitas aclaraciones o detalles sobre el código me avisás.

Espero tu regalo para mi muy próximo cumpleaños .

Saludos.