Al abrir una macro con VBA, me deshbilita excel...

Si pusiste el UserForm como Modal, entonces debes cambiarlo a:
UserForm1.Show vbModeless
Así podrás trabajar con otras aplicaciones u hojas.

Muchas gracias.. me ha servido bastante, pero como debo hacerlo para que me escriba en una sola hoja. Me explico la información que ingreso en el UserForm, quiero que quede reflejada en una hoja en especifico no en cualquiera que este abierta.
Private Sub TextBox1_Change()
Range("A2").Select      
ActiveCell.FormulaR1C1 = Val(TextBox1)
End Sub
Este es el código que he ingresado pero quiero que la información ingresada en el UserForm que registrada en la hoja "INGRESOS" del libro "Control de Insumos"
Espero poder ser bien explicito...
Muchas Gracias por tu valiosa ayuda...

Me imagino que tienes un botón para ingresar la información y puedes hacer lo siguiente:
Hoja2.Select
Range("A65500").Select
ActiveCell.End(xlUp).Select
ActiveCell.Offset(1,0).Select
ActiveCell = TextBox1.Value
Resto_de_tu_Código

Debido a que soy nuevo en esto no he comprendido. ¿Alguna posibilidad de enviar el libro a través de correo...?
De igual manera te muestro todo el código del userform
Private Sub CommandButton1_Click()
Rem inserta un renglón
Selection.EntireRow.Insert
Rem Empty Limpia Los Textbox
TextBox1 = Empty
TextBox2 = Empty
TextBox3 = Empty
TextBox4 = Empty
TextBox5 = Empty
Rem Textbox1.SetFocus Envía el cursor al Textbox1 para volver a capturar los datos
TextBox1.SetFocus
End Sub
Private Sub CommandButton2_Click()
ActiveWorkbook.Close (True)
End Sub
Private Sub TextBox1_Change()
Range("A2").Select
ActiveCell.FormulaR1C1 = Val(TextBox1)
End Sub
Private Sub TextBox2_Change()
Range("B2").Select
ActiveCell.FormulaR1C1 = Val(TextBox2)
End Sub
Private Sub TextBox3_Change()
Range("C2").Select
ActiveCell.Formula = Val(TextBox3)
End Sub
Private Sub TextBox4_Change()
Range("D2").Select
ActiveCell.Formula = TextBox4
End Sub
Private Sub TextBox5_Change()
Range("E2").Select
ActiveCell.Formula = TextBox5
End Sub
Agradecería tu paciencia y valiosa ayuda...

Eso es demasiado código para nada, mejor guíate con esto:
Private Sub OKButton_Click()
    Dim SigFila As Long
'   Aségurese de que la Hoja1 está activa
    Sheets("Hoja1").Activate
'   Asegúrese de que se ha introducido un nombre
'   Determine la siguiente fila vacía
    NextRow = _
      Application.WorksheetFunction.CountA(Range("A:A")) + 1
'   Traslade el nombre
    Cells(SigFila, 1) = TextBox1.Tex
    Cells(SigFila, 2) = TextBox2.Tex
    Cells(SigFila, 3) = TextBox3.Tex
    Cells(SigFila, 4) = TextBox4.Tex   
End Sub
Esto es una guía para que la adaptes.