COMO Crear base se datos con formulario en 2 Modulos/Tiempos?

hola amigos  Tengo una base de datos bajo este codigo Como puedo hacer para que se guarde la info atraves de un formulario y la gente no tenga que ingresar los datos celda por celda PERO  respetando las reglas de la macro que ya tengo??.

Solo como nota la macro que tengo tiene como fin registrar la hora de inicio y una hora final el de inicio es la columna B y la final es la columna O. Como puedo hacer para que el formulario inicie solicitando el dato de la columna B y cierre preguntando el dato de la Columna O ???? Argadeceria mucho sus comentarios y aportaciones la verdad es que no soy programador y esto me esta causando mucho rebuscar. SALUDOS!!!

CODE:::

Private Sub Worksheet_Change(ByVal Target As Range)
    pwd = "abc"
    If Target.Count > 1 Then Exit Sub
    If Not Application.Intersect(Target, Range("B:B")) Is Nothing Then
        ActiveSheet.Unprotect pwd
        Range("J" & Target.Row) = Date
        Range("K" & Target.Row) = Format(Now, "hh:mm")
        If Target.Value <> "" Then
            Target.Locked = True
            Cells(Target.Row, "K").Locked = True
            Cells(Target.Row, "L").Locked = True
        End If
        ActiveSheet.Protect pwd
    End If
    If Not Application.Intersect(Target, Range("O:O")) Is Nothing Then
        ActiveSheet.Unprotect pwd
        Range("L" & Target.Row) = Format(Now, "hh:mm")
        Target.Locked = True
        Cells(Target.Row, "M").Locked = True
        ActiveSheet.Protect pwd
    End If
End Sub

Añade tu respuesta

Haz clic para o