Excel - Protección automatica.

Buenas tardes, tengo un pequeño problema. Resulta que quiero exportar datos a una hoja de excel desde otro archivo, pero si quiero que la hoja este protegida para que no puedan modificarle nada entonces no me lo permite. Quiero saber como hacer la importacion de datos y al momento de que los vaya a meter se desproteja sola la hoja y ya cuando los importe y esten en ella se vuelva a proteger automaticamente. Se puede?, como lo hago?, no soy muy experto en VB, y les agradeceria si me pueden hechar la mano. Estoy a sus ordenes.

Sub calculos()
For w =1 To Sheets().Count
' desprotege desde la hoja 1 a la última
Sheets(w).Unprotect "miclave"
Sheets(w).Select
' Llamada a la macro que hará lo que sea
Run ("escribe")

' Las 2 siguientes lineas no serían necesarias en este ejemplo, pero si lo quieres proteger desde otra macro diferente has de asegurarte que tienes la hoja seleccionada y de que la hoja esta desprotejida. (SI PROTEGES UNA HOJA PROTEJIDA, TE ANULA LA PROTECCION).
Sheets(w).Select
Sheets(w).Unprotect "miclave"
Sheets(w).Protect Password:="miclave", Scenarios:=True
Next w
End sub

sub escribe()
Cells(1, "A") = "Hola Mundo"
End sub

UN SALUDO