Macro para Registrar Accesos

Hola, ahora me encontrado con esta duda, tengo el código que encontré en el foro, muy bueno, por cierto, mi duda es que código puedo agregarle para que cuando coincida el texto del inputbox, con las personas permitidas de la macro, en la Hoja 3 de mi libro se anote el registro de que usuario y a que hora entro y si se puede cuando cerro el archivo. Para ir haciendo un historial, de las empleados que trabajan en esa hoja, tengo excel 2010

Private Sub CommandButton1_Click()
clave1 = InputBox("Ingrese contraseña")
If clave1 <> "" Then
Call Progress Bar
Select Case clave1
Case "TIPS"
Sheets("Hoja2").Visible = True
Sheets("Hoja3").Visible = True
Case "DAP"
Sheets("Hoja2").Visible = True
End Select
End If
End Sub