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 como 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, para ir haciendo un historial, de las empleados que entran a 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