desproteger hoja a través de código

Buenos días

Tengo la hoja de calculo hoja1 en donde a través de un boton copio los datos
a otra hoja (hoja inventario) la hoja inventario debe estar protegida para
que el usuario no haga modificaiciones pero si necesito que cuando de click
en el boton que tengo en la hoja1, me desprotega la hoja mientras graba y
actualiza los datos que estoy copiando. A continuación parte del código con
el que hago ese proceso.

Private Sub btnIngresaarVentas_Click()
Dim iFila As Long
Dim ws As Worksheet
Set ws = Worksheets("Inventario")
'Encuentra la siguiente fila vacia
iFila = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
'Copia los datos a la hoja
ws.Cells(iFila, 1).Value = "Venta"
ws.Cells(iFila, 2).Value = Worksheets("Movimiento").Range("j3")
ws.Cells(iFila, 3).Value = Worksheets("Movimiento").Range("j4")
etc..

gracias

jorgef