- 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:
- Remplazá Luis por una contraseña de tu elección.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
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.
Mode Lineal
